program emposk; {%File 'emposk.bdsproj'} uses Forms, mainform in 'mainform.pas' {main}, windows; {$R *.RES} var Mutex : THandle; begin Mutex:=CreateMutex(nil,True,'EmpOskOnScreenKeyboard'); if (Mutex=0) or (GetLastError = Error_Already_Exists) then begin end else begin Application.Initialize; Application.CreateForm(Tmain, main); Application.Run; if Mutex<>0 then CloseHandle(Mutex); end; end.