[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". Что-то помоему врёшь ты мне.