Ma znam sve to, ali ipak nece.
Evo koda :
Code:
If WaitForSingleObject(CreateMutex(nil, FALSE, PChar('CDClub v' + MainWindow.Version + 'M00T3X by Ex3cut0r')), 0) = wait_TimeOut Then
Begin
SetForegroundWindow(FindWindow('TMainWindow', 'MainWindow'));
Exit;
End;
With Application Do
Begin
Initialize;
CreateTables;
CreateForm(TMainWindow, MainWindow);
Title := 'CDClub v' + MainWindow.Version;
ShowIntro;
Run;
End;
Naravno, probao sam i da promenljivoj tipa HWND dodelim result funkcije FindWindow pa da onda pozovem SetForegroundWindow, ali nece...