Czy mozna zrobic tak aby jakas akcja została wykonana tylko przy pierwszym uruchomieneiu programu
Przy uruchomieniu wpisz cos do rejestru i zarazem sprawdzaj czy juz istnieje taki wpis
Jak nie wiesz jak to zrobic to mozna tak
do listy uses dodajesz registry
nastepnie w zdarzeniu OnCreate formy
var
reg:tregistry;
text:string;
begin
Reg:=TRegistry.Create;
try
Reg.RootKey:=HKEY_LOCAL_MACHINE;
Reg.OpenKey('SoftwareMicrosoftWindowsCurrentVersion', True);
text:=Reg.readstring('pierwsze uruchomienie');
finally
Reg.Free;
end;
if text'' then
begin
Reg := TRegistry.Create;
try
reg.rootkey:=HKEY_LOCAL_MACHINE;
Reg.OpenKey('SoftwareMicrosoftWindowsCurrentVersion', True);
Reg.writestring('pierwsze uruchomienie','juz');
finally
Reg.Free;
end;
Lub utwórz jakis plik np. pu.ccc i zostaw pusty potem tylko sprawdzaj czy jest ... ;-)
Lub utwórz jakis plik np. pu.ccc i zostaw pusty potem tylko sprawdzaj czy jest ... ;-)
I trać w ten sposób 4 kB (...)
AndRew - jesteś pewny? Jeśli plik zajmuje 1 bajt, to zgodzę się, że na dysku zajmuje całą jednostkę alokacji, ale jak ma zero bajtów, to z tego co wiem, nie zajmuje nic (oprócz wpisu do FAT). Ja tak zapisuje różne informacje - pustych plików txt mam kilkadziesiąt :-).