VPF::Как найти по имени окна путь к приложению?

Mikl5

Дата 9.1.2007, 23:20 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 2
Регистрация: 9.1.2007

Репутация: нет
Всего: нет

Может есть какая функция, позволяющая это реализовать?

Voyager

Дата 10.1.2007, 01:26 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 532
Регистрация: 8.2.2005

Репутация: 4
Всего: 18

Код


WindowName := FindWindow(nil, 'MY APP NAME');
GetWindowThreadProcessId(WindowName, @ProcessId);
                                    HandleWindow := OpenProcess(PROCESS_ALL_ACCESS, False, ProcessId);
                                    If HandleWindow<>0 then
                                        begin
                                            GCL:=Cardinal(GetProcAddress(GetModuleHandle('kernel32.dll'),'GetCommandLineA'));
                                            if GCL<>0 then
                                                begin
                                                    if ReadProcessMemory(HandleWindow,Pointer(GCL+1),@DW,4,NumWriteRead)and(NumWriteRead=4)and
                                                    ReadProcessMemory(HandleWindow,Pointer(DW),@StrAddr,4,NumWriteRead)and(NumWriteRead=4) then
                                                        begin
                                                            SetString(AppCommandLineA, nil, MAX_PATH);
                                                                if ReadProcessMemory(HandleWindow,Pointer(StrAddr),@AppCommandLineA[1],Length(AppCommandLineA),NumWriteRead) then
                                                                    begin
                                                                        SetLength( AppCommandLineA,Pos(#0, AppCommandLineA)-1);
                                                                    end
                                                                else
                                                                    AppCommandLineA:='';
                                                        end;
                                                end;
                                            CloseHandle(HandleWindow);
                                        end;

В AppCommandLineA будет путь к программе.

Это сообщение отредактировал(а) Voyager - 10.1.2007, 01:26

W4FhLF

Дата 10.1.2007, 08:31 (ссылка)

(нет голосов)

Загрузка ...

found myself

Профиль
Группа: Участник Клуба
Сообщений: 2831
Регистрация: 2.12.2006

Репутация: 6
Всего: 121

Код


GetWindowThreadProcessId(FindWindow(nil, 'Window'), @PID);
hProcess := OpenProcess(PROCESS_ALL_ACCESS, False, PID);
GetModuleFileNameEx(hProcess, 0, lpFilename, szFilename);

Примерно так.

--------------------

1 Пользователей читают эту тему (1 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: WinAPI и системное программирование \| Следующая тема »