Форум: "Начинающим";
Текущий архив: 2008.01.20;
Скачать: [xml.tar.bz2];

Вниз

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

← →
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 остался случайный мусор.

---

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

Кстати, вот по этой самой причине я предпочитаю работать с подобными функциями 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;


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

---

← →
Riply ©   (2007-12-19 02:00) [11]

> [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" или она может его понять, если чего-то похимичить?

---

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

Форум: "Начинающим";
Текущий архив: 2008.01.20;
Скачать: [xml.tar.bz2];

Наверх

Память: 0.47 MB
Время: 0.048 c