Главная страница
    Top.Mail.Ru    Яндекс.Метрика
Форум: "WinAPI";
Текущий архив: 2003.03.10;
Скачать: [xml.tar.bz2];

Вниз

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

 
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;




Страницы: 1 вся ветка

Форум: "WinAPI";
Текущий архив: 2003.03.10;
Скачать: [xml.tar.bz2];

Наверх





Память: 0.55 MB
Время: 0.039 c
8-29968
_Ed_
2002-11-29 05:55
2003.03.10
Момент окончания воспроизведения *.wav


3-29776
VIB
2003-02-20 10:41
2003.03.10
DBGrid


14-30103
BALU1111
2003-02-20 12:28
2003.03.10
Windows 2000


14-30124
sancho
2003-02-23 12:04
2003.03.10
Помогите!!!


3-29741
Shrek
2003-02-19 14:24
2003.03.10
Как переименовать поле?





Afrikaans Albanian Arabic Armenian Azerbaijani Basque Belarusian Bulgarian Catalan Chinese (Simplified) Chinese (Traditional) Croatian Czech Danish Dutch English Estonian Filipino Finnish French
Galician Georgian German Greek Haitian Creole Hebrew Hindi Hungarian Icelandic Indonesian Irish Italian Japanese Korean Latvian Lithuanian Macedonian Malay Maltese Norwegian
Persian Polish Portuguese Romanian Russian Serbian Slovak Slovenian Spanish Swahili Swedish Thai Turkish Ukrainian Urdu Vietnamese Welsh Yiddish Bengali Bosnian
Cebuano Esperanto Gujarati Hausa Hmong Igbo Javanese Kannada Khmer Lao Latin Maori Marathi Mongolian Nepali Punjabi Somali Tamil Telugu Yoruba
Zulu
Английский Французский Немецкий Итальянский Португальский Русский Испанский