Здравствуйте.
Никак не получается вывести на передний план окно другого приложения, точнее того же самого при повторном запуске.
Код:
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;
Заранее спасибо.