Как отловить САМЫЙ ПЕРВЫЙ запуск программы ?

← →
Victor (2002-02-09 11:07) [3]

можно записывать запуск проги в какой нибудь файл,
выглядеть это будет так:
писать всё это в таймере!!
var d,e:string;
f:textfile;
begin
if findwindow(nil,"My computer")<>0 then
begin
e:=TimeToStr(time);
d:="d:\1";
assignfile(f,d);
rewrite(f,d);
d:="Программа запущена в "+e;
writeln(f,d);
closefile(f);
end;
end;
так можно отследить запуск любого окна в данном случае отслеживается запуск My Network Places(сетевое окружение для тех у кого Winda русская)

Как отловить САМЫЙ ПЕРВЫЙ запуск программы ? Найти похожие ветки