[reqyz]

Задача казалась бы очень лёгкая, но столкнулся с необычным глюком. Нужно всего лишь запустить процесс Проводника и получить Хэндл его главной формы.

Делаю так:

Код:

var
  Handl:HWND=0;

function EnumProc(h:HWND; lParam:DWord):boolean; stdcall;
begin
 handl:=h;
 Result:=handl=0;
end;

var
  StartInfo: TStartupInfo;
  ProcInfo: TProcessInformation;
begin
  with StartInfo do
  begin
    cb := SizeOf(StartInfo);
    {dwFlags := STARTF_USESHOWWINDOW or STARTF_USESTDHANDLES;
    StartInfo.wShowWindow:=SW_show;//hide;
    }
  end;
  CreateProcessA(nil,{PChar('Explorer n/,/select,"'+paramstr(0)+'"')}'Explorer.exe',nil,nil,false,0,nil,nil,StartInfo,ProcInfo);


  //WaitForSingleObject(ProcInfo.hProcess, INFINITE);
  WaitForInputIdle(ProcInfo.hProcess, INFINITE);
  EnumThreadWindows(ProcInfo.dwThreadId,@EnumProc,0);
  CloseHandle(ProcInfo.hProcess);
  CloseHandle(ProcInfo.hThread);


end.

в результате в хэндл получаю ноль, хотя для блокнота то же самое спокойно работает

Думал что может для проводника не так с окнами что либо, потестил через таймер:

Код:

procedure TForm1.Timer1Timer(Sender: TObject);
var
  a:TPoint;
begin
  GetCursorPos(a);
  Caption:=inttostr(WindowFromPoint(a));
end;

так работает.

Внимание, Вопрос: что не так в первом коде?

ну и почему для блокнота и др работает, EnumThreadWindows и EnumWindows для проводника ничего не находят, но ведь окно есть, я же нашёл его... спасите мой глюк)

[poli-smen]

Сообщение от reqyz

Внимание, Вопрос: что не так в первом коде?

ну и почему для блокнота и др работает, EnumThreadWindows и EnumWindows для проводника ничего не находят, но ведь окно есть, я же нашёл его... спасите мой глюк)

Попробуй приложение от имени администратора запустить.

UPD.
Кстати, а эксплорер хоть запускается? Он же завершается, если обнаруживает что одна его копия уже запущена.

[reqyz]

так я с одмина сижу, да и если через WindowFromPoint(a) работает, почему так не хочет?

[poli-smen]

Сообщение от reqyz

так я с одмина сижу, да и если через WindowFromPoint(a) работает, почему так не хочет?

Я там выше добавил примечание:
Кстати, а эксплорер хоть запускается? Он же завершается, если обнаруживает что одна его копия уже запущена.

[reqyz]

Сообщение от poli-smen

П
Кстати, а эксплорер хоть запускается? Он же завершается, если обнаруживает что одна его копия уже запущена.

эксплорер запускается, когда это он в 7-ке завершался? хоть 50 версий в процессах будет его, для каждой папки и для стола свой)

да, запускается нормально и никуда не исчезает, прямо сейчас на него смотрю, и через енум хэндл 0, а через наведение, находит( блин..

[poli-smen]

Сообщение от reqyz

эксплорер запускается, когда это он в 7-ке завершался? хоть 50 версий в процессах будет его, для каждой папки и для стола свой)

да, запускается нормально и никуда не исчезает, прямо сейчас на него смотрю, и через енум хэндл 0, а через наведение, находит( блин..

Вот я только что запустил под Win7 ещё один эксплорер, а у меня в процессах как висел, так и висит один процесс "explorer.exe"

[reqyz]

Сообщение от poli-smen

Вот я только что запустил под Win7 ещё один эксплорер, а у меня в процессах как висел, так и висит один процесс "explorer.exe"

запустите с таким параметром PChar('Explorer n/,/select,"'+paramstr(0)+'"') тогда будет несколько

[NumLock]

EnumWindows находит CabinetWClass. и даже можно до SysListView32 добраться

[poli-smen]

Сообщение от reqyz

запустите с таким параметром PChar('Explorer n/,/select,"'+paramstr(0)+'"') тогда будет несколько

Нет. Всё равно в процессах висит только один "explorer.exe". Тот который висит в процессах имеет PID (ИД процесса) равный "3916". А если я в программе после запуска делаю так:

Код:

Caption:=IntToStr(ProcInfo.dwProcessId);

то в заголовке формы появляется PID равный 195120, хотя в процессах такого нет - значит он запустился и сразу закрылся.

А ты вообще как определяешь что у тебя запущено несколько процессов "explorer.exe". Что-то помоему врёшь ты мне.

[reqyz]

у меня всё работает, эксплорер открывает папку с выделенным файлом программы, но хэндл не находит, хотя в любых других программах в том же блокноте всё ок

[reqyz]

Сообщение от NumLock

EnumWindows находит CabinetWClass. и даже можно до SysListView32 добраться

EnumWindows применял, сравнивая с ид процесса, и не находит ни одного окна(

[poli-smen]

Всё. Получилось запустить ещё один эксплорер твоим способом, я просто не туда скопировал в прошлый раз.
Только вот в диспетчере задач он запускается с PID=195008, а у меня в заголовке формы написано "194208". Т.е. хоть и запустился, но явно не тот который я запускал.

[reqyz]

это хорошо) а мне то что делать?

[poli-smen]

Сообщение от reqyz

это хорошо) а мне то что делать?

Ну так ты пытаешься перечислить окна у процесса у которого нет окон.
Тебе нужно работать с PID не того процесса который ты запустил, а того который появился этим загадочным способом запуска.
И всё же ещё раз попробуй способ который предложил NumLock, только в этот раз не по PID сравнивай, а о имени класса "CabinetWClass".

[reqyz]

Сообщение от poli-smen

Ну так ты пытаешься перечислить окна у процесса у которого нет окон.
Тебе нужно работать с PID не того процесса который ты запустил, а того который появился этим загадочным способом запуска.
И всё же ещё раз попробуй способ который предложил NumLock, только в этот раз не по PID сравнивай, а о имени класса "CabinetWClass".

тогда я не смогу узнать что это мой, может мне както через опен процесс заставить эксплорер открыть ту папку в новом окне, не создавая новый процесс? и получить хэндл этого нового окна? реально?