Здравствуйте.
Никак не получается вывести на передний план окно другого приложения, точнее того же самого при повторном запуске.
Код:
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 | 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;
|
Заранее спасибо.
15.08.2014, 20:37
Вывести окно другого приложения на передний план
Линейный вид
