path in 9x

← →
rimd © (2004-04-07 14:12) [0]

написал наконец-то ф-ию которая выдергивает путь, зная только окно. проблемма в том что это дело работает только на w2k, а как в остальных? имеется в виду 98/me

function GetAppFilePath(WndHWND:Cardinal):string;
var
HProc,PID,HSnap:Cardinal;
pe32:tagPROCESSENTRY32;
ModName:array[0..MAX_PATH] of Char;
begin
if not IsWindow(WndHWND) then
begin
Result:="";
Exit;
end;
HProc:=GetWindowThreadProcessId(Form1.Handle,PID);
if HProc=0 then
begin
Result:="";
Exit;
end;
HSnap:=CreateToolhelp32Snapshot(TH32CS_SNAPPROCESS,PID);
if HSnap=1 then
begin
Result:="";
Exit;
end;
if not Process32First(HSnap,pe32) then
begin
Result:="";
Exit;
end;
if GetModuleFileName(pe32.th32ModuleID,ModName,MAX_PATH)=0 then
begin
Result:="";
Exit;
end;
Result:=String(ModName);

end;

← →
BiN © (2004-04-07 14:46) [1]

и что? работает?!!!

вот держи для 9х

function GetWindowExeName(WindowHandle:HWND):string; var ProcessEntry: TProcessEntry32; ProcessId: DWORD; hSnap: THandle; begin Result:=""; if GetWindowThreadProcessId(WindowHandle, @ProcessId)=0 then exit; ProcessEntry.dwSize:=sizeof(TProcessEntry32); hSnap:=CreateToolhelp32Snapshot(TH32CS_SNAPPROCESS,0); if hSnap=INVALID_HANDLE_VALUE then exit; if Process32First(hSnap,ProcessEntry) and (ProcessId=ProcessEntry.th32ProcessID) then begin Result:=ProcessEntry.szExeFile; CloseHandle(hSnap); exit; end; while (Process32Next(hSnap, ProcessEntry)) and (ProcessId<>ProcessEntry.th32ProcessID) do; if ProcessId=ProcessEntry.th32ProcessID then Result:=ProcessEntry.szExeFile; CloseHandle(hSnap); end;

path in 9x Найти похожие ветки