Узнать 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]

Спасибо, это работает. Ещё вопрос, как можно сменить раскладку в чужом окне? Дело в том, что если эмулировать нажатия клавиатуры, то в другом окне они будут отображаться в соответствии с тамошней раскладкой, т.е. передаю ord('F') - появляется 'а'. На одном форуме я нашёл такую функцию:

function ChangeLayout(
const RemoteHandle: THandle): Boolean;
var
  Dumme: DWORD;
  Layout: HKL;
begin
  Layout := LoadKeyboardLayout('00000409', KLF_ACTIVATE);
  Result := SendMessageTimeOut(RemoteHandle, WM_INPUTLANGCHANGEREQUEST,
    0, Layout, SMTO_ABORTIFHUNG, 200, Dumme) <> 0;
  if Result then Result := SendMessageTimeOut(RemoteHandle, WM_INPUTLANGCHANGEREQUEST,
 DEFAULT_CHARSET, Layout, SMTO_ABORTIFHUNG, 200, Dumme) <> 0;
end;

(передаю хэндл нужного окна)

, но она была под изменение на русскую раскладку, а мне нужна английская. Там я в SetKeyboardLayout изменил код раскладки на английский и в предпоследней строке вместо RUSSIAN_CHARSET вписал DEFAULT_CHARSET (в модуле windows.pas константы поглядел), только вот не работает. Кажется, там не DEFAULT_CHARSET, но вот по логике вещей ENGLISH_CHARSET тоже нет.. Кое-где пишут, что вообще хук нужен.