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

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

Путь к проге


Semion ©   (2002-11-04 08:38:00) 

Люди а как узнать путь к файлу(ехе) любой запущеной программы, зная например ее хендел.


SottNick   (2002-11-10 07:17:00) [1]

>> Неа. Только для окон своего процесса (NT, Win2K, XP)

1. желающие сами проверят...
2. в 98й точно работает из любого
3. в NT 4 точно правильно не работает (работает неправильно)
4. в документации по ней ничего про ограничения не говорится
http://msdn.microsoft.com/library/default.asp?url=/library/en-us/winui/WinUI/WindowsUserInterface/Windowing/Windows/WindowReference/WindowFunctions/GetWindowModuleFileName.asp


Игорь Шевченко   (2002-11-05 13:33:00) [2]

SottNick © (05.11.02 13:18)

> GetWindowModuleFileName
> для любых окон


Неа. Только для окон своего процесса (NT, Win2K, XP)


SottNick   (2002-11-05 13:18:00) [3]

GetWindowModuleFileName
для любых окон
но только для винды 98 и выше
а иначе вылезет ошибка


Song   (2002-11-05 08:56:00) [4]

2StAL © (04.11.02 16:28)
GetWindowModuleFileName только для окон своего процесса.


Shrek   (2002-11-04 23:41:00) [5]

procedure TForm1.ListProcesses;
var c1:Cardinal;
pe:TProcessEntry32;
s1,s2:string;
x, count :integer;
processID:array[1..50] of integer;
begin
X := 0;
c1 := CreateToolHelp32Snapshot(TH32CS_SnapProcess,0);

try
count := 1;
pe.dwSize:=sizeof(pe);
if Process32First(c1,pe) then
repeat
inc(x);
s1 := ExtractFileName(pe.szExeFile);
Delete(s1,length(s1)+1-length(s2),maxInt);

count := count + 1;

ProcessId[x] := pe.th32ProcessID;
until not Process32Next(c1,pe);


finally CloseHandle(c1);
end;

end;


StAL   (2002-11-04 16:28:00) [6]

Недокументированная ф-ция GetWindowModuleFileName из User32.dll


Ich Hasse   (2002-11-04 11:31:00) [7]

Ну почти до конца, тог8да надо лезть в процессы и там искать


Song   (2002-11-04 11:24:00) [8]

2Ich Hasse © (04.11.02 11:17)
Вопрос-то читали?


Ich Hasse   (2002-11-04 11:17:00) [9]

function FilePath():string;
begin
GetDir(0,Result);
end;


Song   (2002-11-04 08:52:00) [10]

GetModuleFileName()


Наверх

Титульная страница Поиск, карта сайта Написать письмо