Узнать Handle окна по имени файла Опции

[Unconnected]

Привет всем.

Мне нужно узнать хэндл окна. Допустим, запускаю я cmd через ShellExecute, и нужно мне получить её хэндл. Через FindWindow нельзя, т.к. заголовок cmd может быть разный - у некоторых в начале приписывается "Администратор" (видимо, сидят под администратором). Я думаю, можно перебирать все окна и искать по слову cmd в заголовке. Попробовал ф-ю EnumWindows, вот так:

var mypointer:pointer;
      t:hwnd;
function MyCallbackFunction(Wnd:HWnd; P: Pointer):Bool; stdcall;
begin
  messagebox(0,pchar(GetModuleName(GetClassLong(wnd,GCL_HMODULE))),'',0);
  if pos('CMD',uppercase(GetModuleName(GetClassLong(wnd,GCL_HMODULE))))>0 then t:=wnd;
end;

...

  shellexecute(0,'open','cmd',0,0,sw_show);
  EnumWindows(@MyCallbackFunction, LongInt(MyPointer));
  if t=0 then messagebox(0,'dfdf','',0);
...

, и нифига, getmodulename не хочет возвращать имя файла по хэндлу. Помогите, а то меня скоро в гугле как ддос-бота забанят))

[Unconnected]

Volvo, а вот, чисто теоретически, можешь предположить, почему твой код из 10-го поста может не сработать? Вариант со слабой машиной и как следствие маленькой задержкой отметается. Просто человек один говорит, что у него просто открывается Выполнить, там висит команда и ничего не происходит, типа, кнопка не нажалась. Или же вообще, что кнопка Ок неактивна, и становится активна только после нажатия кнопки какой-нибудь в поле ввода. У меня и на основной и на виртуальной машинах всё работает.. Пользуюсь этим, убрал проверку:

Procedure writerun(n:string);
begin
  ShellApplication :=  CreateOleObject('Shell.Application');
  try
    ShellApplication.FileRun;
    Sleep(500);
    foreWin := GetForegroundWindow();
    pgui.cbSize := SizeOf(TGUIThreadinfo);
    GetGUIThreadInfo(GetWindowThreadProcessId(foreWin), pgui);
    SendMessage(pgui.hwndFocus, WM_SETTEXT, Length(n), Integer(@n[1]));
 //   postMessage(pgui.hwndFocus, WM_KEYDOWN, VK_SPACE, Integer(True)); //здесь я пробовал дополнительно //ввести пробел, чтобы кнопка активировалась
    postMessage(pgui.hwndFocus, WM_KEYDOWN, VK_RETURN, Integer(True));
  finally
    ShellApplication := Unassigned;
  end;
end;

//added: может, stdcall надо было написать возле заголовка процедуры? Там же апи, как-никак..

Сообщение отредактировано: Unconnected - 2.06.2010 23:27