Pierwsze uruchomienie

0

Czy mozna zrobic tak aby jakas akcja została wykonana tylko przy pierwszym uruchomieneiu programu

0

Przy uruchomieniu wpisz cos do rejestru i zarazem sprawdzaj czy juz istnieje taki wpis

0

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;

0

Lub utwórz jakis plik np. pu.ccc i zostaw pusty potem tylko sprawdzaj czy jest ... ;-)

0

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 :-).

1 użytkowników online, w tym zalogowanych: 0, gości: 1