Mega Code Archive

 

Categories / Delphi / System

 

Programin ayni anda sadece 1 kez calismasi

function AlreadyLoaded: Boolean; var wHandle: Integer; wTitle: array[0..100] of Char; wClass: array[0..100] of Char; begin StrPCopy(wTitle, Application.Title); StrPCopy(wClass, 'TApplication'); Application.Title := '$Test$'; wHandle := findWindow(wClass, wTitle); Application.Title := wTitle; Result := wHandle <> 0; if Result then begin ShowWindow(wHandle, SW_SHOWNORMAL); SetForegroundWindow(wHandle); end; end;