верна ли функция

← →
istok (2007-12-18 15:06) [0]

эта функция правильно написана?

function GetProcFileName(ProcId: DWORD): string; var ph: THandle; mh: hmodule; ModName: array[0..max_path] of char; cm: Cardinal; begin Result := ""; ph := OpenProcess(PROCESS_QUERY_INFORMATION or PROCESS_VM_READ, false, procId); if ph > 0 then begin EnumProcessModules(ph, @mh, 4, cm); GetModuleFileNameEx(ph, mh, ModName, sizeof(ModName)); Result := string(ModName); CloseHandle(ph); end; end;

а то в ModName иногда то "?", то неверная буква диска проскакивает..

← →
www (2007-12-18 15:11) [1]

\?\

такое? это нормально

← →
istok (2007-12-18 15:29) [2]

> такое? это нормально
>

бывает такое, бывает \??\, бывает ?:\ бывает G:\ вместо C:\, бывает какой-то системный символ вместо C (прямоугольничек).

это бывает редко, но бывает. есть подозрение что чаще случается с только что созданным процессом.

← →
Сергей М. © (2007-12-18 15:36) [3]

> istok

Кто тебя научил вызывать WinAPI-функции как процедуры ?
Фленов ?

← →
Юрий Зотов © (2007-12-18 16:03) [4]

Возможно, в ModName не пишется завершающий ноль. Тогда можно или дописать его ручками (реальную длину дает GetModuleFileNameEx), или сначала забить весь ModName нулями, или выбосить ModFileName совсем и сделать так:
SetLength(Result, MAX_PATH); SetLength(Result, GetModuleFileNameEx(ph, mh, @Result[1], MAX_PATH));

← →
istok (2007-12-18 16:35) [5]

> Юрий Зотов © (18.12.07 16:03) [4]

Это может быть связано с ошибками первых символов возвращаемой строки?

← →
DiamondShark © (2007-12-18 16:40) [6]

> istok (18.12.07 16:35) [5]

А ты уже проверил значения возвращаемые функциями EnumProcessModules и GetModuleFileNameEx?

← →
Юрий Зотов © (2007-12-18 16:50) [7]

> istok (18.12.07 16:35) [5]

Первых - нет. См. [6].

← →
Юрий Зотов © (2007-12-18 17:55) [8]

Хотя, может и первых, если они же - и последние. То есть, если GetModuleFileNameEx вернула ноль и в ModName остался случайный мусор.

Кстати, вот по этой самой причине я предпочитаю работать с подобными функциями API по схеме [4]. При ошибке получаем четкую пустую строку, а не случайный мусор.

← →
istok (2007-12-19 00:57) [10]

ок, еще вопрос:

если я имею строку вида \\?\c:\WINDOWS\system32\notepad.exe

то FileExists скажет true, но данный код не выцепит из этого файла иконки:

procedure GetFileIcon(const AFileName: string; var AIcon: TIcon); var FileInfo: SHFILEINFO; begin SHGetFileInfo(PChar(AFileName), 0, FileInfo, SizeOf(FileInfo), SHGFI_ICON); AIcon.Handle := FileInfo.hIcon; end;

как быть? несогласованность получается ..

> [10] istok (19.12.07 00:57)
> как быть?
Читать Help.

>Offtop
Не понимаю, зачем задавать вопросы, а потом не слушать ответы ?
SHGetFileInfo - это функция.

← →
istok (2007-12-19 02:15) [12]

> Riply © (19.12.07 02:00) [11]

насчет проверки результата я понимаю, но это сути ж вопроса не меняет.

if SHGetFileInfo(PChar(AFileName), 0, FileInfo, SizeOf(FileInfo), SHGFI_ICON) <> 0 then AIcon.Handle := FileInfo.hIcon;

про

pszPath Pointer to a buffer that contains the path and filename. Both absolute and relative paths are valid. If uFlags includes the SHGFI_PIDL, value pszPath must be the address of an ITEMIDLIST structure that contains the list of item identifiers that uniquely identifies the file within the shell"s name space. This string can use either short (the 8.3 form) or long filenames.

я почитал, но может чего не понял.

я так понимаю, что эта функция не понимает пути "\\?\c:\WINDOWS\system32\notepad.exe" или она может его понять, если чего-то похимичить?

верна ли функция Найти похожие ветки