[sumbik]

Здравствуйте.

Никак не получается вывести на передний план окно другого приложения, точнее того же самого при повторном запуске.

Код:

procedure TForm3.FormCreate(Sender: TObject);
var
k: integer;
wnd: HWND;
begin
//блокирование повторного запуска
CreateMutex(nil,false,'E9C09DE6-E0ED-4077-B5D2-6EC49CD1E2C5');
k := GetLastError();
if (k=ERROR_ALREADY_EXISTS)or(k=ERROR_ACCESS_DENIED) then
begin
wnd := FindWindow(nil, 'My Caption');
if wnd <> 0 then
  begin
  ShowWindow(FindWindow(nil, 'My Caption'), SW_SHOW);
  end
else
  ShowMessage('Окно не найдено');

 Application.Terminate;
 Exit;
end;
end;

Заранее спасибо.

[Bargest]

Я бы первым делом попробовал SetForegroundWindow.