| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

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

istok ©   (2007-12-18 15:06:00) 

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

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 иногда то "?", то неверная буква диска проскакивает..

---

istok   (2007-12-19 02:15:00) [1]

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

---

Riply   (2007-12-19 02:00:00) [2]

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

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

---

istok   (2007-12-19 00:57:00) [3]

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

если я имею строку вида \\?\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;


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

---

Юрий Зотов   (2007-12-18 18:52:00) [4]

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

---

Юрий Зотов   (2007-12-18 17:55:00) [5]

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

---

Юрий Зотов   (2007-12-18 16:50:00) [6]

> istok   (18.12.07 16:35) [5]

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

---

DiamondShark   (2007-12-18 16:40:00) [7]

> istok   (18.12.07 16:35) [5]

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

---

istok   (2007-12-18 16:35:00) [8]

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


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

---

Юрий Зотов   (2007-12-18 16:03:00) [9]

Возможно, в ModName не пишется завершающий ноль. Тогда можно или дописать его ручками (реальную длину дает GetModuleFileNameEx), или сначала забить весь ModName нулями, или выбосить ModFileName совсем и сделать так:

SetLength(Result, MAX_PATH);
SetLength(Result, GetModuleFileNameEx(ph, mh, @Result[1], MAX_PATH));


---

Сергей М.   (2007-12-18 15:36:00) [10]

> istok


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

---

istok   (2007-12-18 15:29:00) [11]

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


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

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

---

www   (2007-12-18 15:11:00) [12]

\?\

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

---

Наверх