Скачать: CL | DM;

Два в одном.Помогите кто чем может   Найти похожие ветки 

← →
dimich1978 ©   (2003-02-04 09:18) [0]

Как можно по Hendl"у окна получить имя исполняемого файла?
Ну типа
Handle=Winword
File=winword.exe
или
Handle=Winmp 2.8 Гарик сукачев mp3 3.42
File=winamp.exe

И еще видел в форуме ответ на вопрос, но не нашел его, как сделать форму поверх всех(это StayOnTop), но даже когда она неактивна....а вот с этим у меня и проблема.
Плиз помогите. Заранее всем благодарен.

---

← →
Игорь Шевченко ©   (2003-02-04 10:35) [1]

> Как можно по Hendl"у окна получить имя исполняемого файла?


В кладовке, в разделе "готовые программы" лежит программа EnumFunctions. Для NT/Win2k/WinXP там есть функция, делающая это.

---

← →
dimich1978 ©   (2003-02-04 10:55) [2]

Спасибо

---

← →
Sheriff   (2003-02-04 10:55) [3]

кривовато, но у меня работает:
uses ..., TlHelp32;

var
Handle: THandle;
hProcess: THandle;
ProcId: LongInt;
hSnapshoot: THandle;
me32: TModuleEntry32;
begin
Handle:=FindWindow(nil,PChar("C:\Borland\Delphi5\Project\LanScan"));
if Handle=0 then exit;
hProcess:=GetWindowThreadProcessId(Handle, @ProcId);
if hProcess=0 then exit;
hSnapshoot := CreateToolhelp32Snapshot(TH32CS_SNAPMODULE, ProcId);
if hSnapshoot = -1 then exit;
if Module32First(hSnapshoot, me32) then Memo2.Lines.add(me32.szExePath);
end;

---

← →
Anatoly Podgoretsky ©   (2003-02-04 11:00) [4]

Sheriff (04.02.03 10:55)
На НТ4?

---

← →
Sheriff   (2003-02-04 11:14) [5]

на ХР

---

← →
Anatoly Podgoretsky ©   (2003-02-04 11:30) [6]

Sheriff (04.02.03 10:55)
А при чем тут ХР?

---

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

Скачать: CL | DM;



Память: 0.46 MB
Время: 0.01 c