Uses Windows, Forms, SysConst var Hwnd: THandle; begin Application.Initialize; CreateMutex(nil, False, 'FrmMain'); if GetLastError = ERROR_ALREADY_EXISTS then begin Hwnd := FindWindow('TfrmMain', 'xdeltaGUI'); if Hwnd <> 0 then begin SetWindowPos(hwnd, Hwnd_Topmost, 274, 206, 451, 319, 0); //Left,Top,Width,Height SetWindowPos(Hwnd, Hwnd_notopmost, 274, 206, 451, 319, 0); ShowWindow(HWnd, SW_SHOW); Halt(0); end; end; Application.CreateForm(TFrmMain, FrmMain); Application.Run; end.
