Не успеваю получить результат выполнения функции в процедуре

[Den7656]

Спасибо, позже попробую.
Такая мысль:

[PHP]
procedure TMonitorForm.Timer1Timer(Sender: TObject);
var
....
pe32: TlHelp32.TProcessEntry32;
Handle: THandle;
ProcInfo: TProcessEntry32;
begin
NewPIDList.Clear;
NewProcessList.Clear;
Handle := TlHelp32.CreateToolHelp32SnapShot(T lHelp32.TH32CS_SNAPPROCESS, 4);
.......
NewProcessList.Add(pe32.szExeFile); // Тут получаю только имя exe
[PHP]

можно ли как-нить получить путь .
Как ни бьюсь с этим, не получается, pe32.szExeFile - возвращает только имя EXE

[notHaker]

Вообще каэш код отработает в любом случае, ибо всё плывёт в один поток, но пустые строки видимо - это "лёгкое" удивлении функции CreateToolHelp32SnapShot(), которая скорей всего отказывается столь часто обновлять, тк можно и систему повесить.

можно ли как-нить получить путь .
Как ни бьюсь с этим, не получается, pe32.szExeFile - возвращает только имя EXE

Если возвращает только имя, то он и дальше его возвращать будет. Флагов у функций я подходящих не нашёл. Оставьте это дело.

[Den7656]

Я так понял, ч хук ставится на сообщения, мышь, клаву и т.д. Но на файлы не ставится. Так что с хуком вариант скорее всего не прокатит

[ReportCube]

Отключайте таймер в начале обработчика OnTimer, а по выходе из обработчика снова включайте таймер - всё будет работать

[Den7656]

Спасибо огромное все получилось )))
Тему можно закрывать.

[notHaker]

Я так понял, ч хук ставится на сообщения, мышь, клаву и т.д. Но на файлы не ставится. Так что с хуком вариант скорее всего не прокатит

Да ладно... http://www.delphisources.ru/forum/showthread.php?t=7167
http://www.delphimaster.ru/cgi-bin/f...1282335043&n=5