Запущено ли приложение...

← →
viper (2003-01-20 21:27) [0]

Как узнать запукалось ли приложение (например IE) или нет, и чтобы прописовалось в log-file отчет

← →
KDenis (2003-01-20 22:52) [1]

<<Как узнать запукалось ли приложение (например IE) или нет>>
запускалось когда? Если оно еще работает, то можно попробовать функцию FindWindow
(на Delphi6 работает, она обявлена в модуле Windows)
<<и чтобы прописовалось в log-file отчет>>
Сам додумаешся, у меня время кончается...

← →
dimich1978 (2003-01-21 11:06) [2]

Криво но работает.
procedure TForm1.Timer1Timer(Sender: TObject);
var
header:HWND;
apchar:array[0..254] of char;
s:string;
buffer: array[0..255] of char;
size: dword;
begin
timer1.Interval:=60000; /здесь просто мне надо было чтоб через минуту, а ты сам смотри
header:=GetForegroundWindow; // получаем заголовок текущего активного окна
GetWindowText(header, apchar, Length(apchar));
size:=256;
GetComputerName(buffer, size);
label1.caption:=buffer;
label2.caption:=apchar;
//записываем все в БД и если там уже такой заголовок есть, то приписываем минуту(в моем случае) что типа приложение вот столько проработало в активном режиме
БД имеет структуру
NameComp/ Prilog/ Time/ Date и все вообщем
table1.close;
table1.open;
if table1.locate("Prilog",label2.caption,[])=true then
begin
table1.edit;
table1.fields[2].asstring:=inttostr(table1.fields[2].asinteger+1);
table1.fields[3].asstring:=datetostr(date);
table1.post;
end;
if table1.locate("Prilog",label2.caption,[])=false then
begin
table1.insert;
table1.fields[0].asstring:=label1.caption;
table1.fields[1].asstring:=label2.caption;
table1.fields[2].asstring:="1";
table1.fields[3].asstring:=datetostr(date);
table1.post;
end;

Запущено ли приложение... Найти похожие ветки