Как получить рабочий каталог, имя только handle.

← →
demonyator © (2003-05-25 21:07) [0]

С помощью следующей функции вытягиваю .exe из handle, но надо ещё и узнать в какой директории он находится.... может кто знает где копать?

Вот моя функция:
Function GetExeFromHandle(var Hand:LongInt):String; var ContinueLoop: BOOL; FSnapshotHandle: THandle; FProcessEntry32: TProcessEntry32; AProcessID : DWORD; begin result :=""; GetWindowThreadProcessID(Hand,AProcessID); FSnapshotHandle := CreateToolhelp32Snapshot(TH32CS_SNAPPROCESS, 0); FProcessEntry32.dwSize := Sizeof(FProcessEntry32); ContinueLoop := Process32First(FSnapshotHandle,FProcessEntry32); while integer(ContinueLoop) <> 0 do begin if AProcessID=FProcessEntry32.th32ProcessID then Result:=FProcessEntry32.szExeFile; ContinueLoop := Process32Next(FSnapshotHandle, FProcessEntry32); end; CloseHandle(FSnapshotHandle); end;

← →
Song © (2003-05-25 22:41) [1]

Из справки по Process32First/Next:

szExeFile

Path and filename of the executable file for the process.

← →
МДа.. (2003-05-25 22:44) [2]

А так не потянет?

procedure TForm1.Button1Click(Sender: TObject);
var Lib: THandle;
begin
Lib := LoadLibrary("explorer.exe");
Edit1.Text := GetModuleName(Lib);
FreeLibrary(Lib)
end;

← →
МДа.. (2003-05-25 22:53) [3]

Ну и, разумеется, ExtractFilePath.. Если правильно понял.

← →
jack128 © (2003-05-25 23:29) [4]

Song © (25.05.03 22:41)
Я тоже на такое наткнулся,в хелпе неправильно написано.

← →
demonyator © (2003-05-26 01:00) [5]

> Song
Path and filename of the executable file for the process.
то то и оно, что только fileName и никакого path :( Обманул нас дядя Билли

← →
demonyator © (2003-05-26 01:58) [6]

> МДа..

Этот код не подходит... если запустить, к примеру, Windows Commander и прописать Lib := LoadLibrary("wincmd32.exe") - эта функция просто вернёт путь к моей проге.

← →
VMcL © (2003-05-26 14:32) [7]

>Song © (25.05.03 22:41)

Путь возвращается только в Win9x. В Win2K+ только имя файла без пути. Если мне не изменяет склероз, в NT-шках нужно юзать NTQuerySystemInformation.

>VMcL © (26.05.03 14:32)

С NTQuerySystemInformation я лоханулся. Почитай что-нибудь типа этого http://msdn.microsoft.com/library/en-us/perfmon/base/about_psapi.asp

... иногда поражаешься красоте и простоте всего этого, но бывает, что поражаться приходится сложности написания простых вещей...

> VMcL
ничего.

Как получить рабочий каталог, имя только handle. Найти похожие ветки