1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:

function IsFileInUse(Path: string): boolean;
var
  hFile: THandle;

begin
  Result := False;
  if not FileExists(Path) then Exit;

  hFile := CreateFile(pchar(Path), GENERIC_READ or GENERIC_WRITE or GENERIC_EXECUTE,
                      0, nil, OPEN_EXISTING, FILE_ATTRIBUTE_NORMAL, 0);
  Result := hFile = INVALID_HANDLE_VALUE;
  if not Result then CloseHandle(hFile);

end;					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:

procedure RunProcessAndWait(aFilename, aParameters, aDirectory: String; aShowCmd: Integer = SW_SHOWNORMAL);
Var
  StartupInfo : TStartupInfo; 
  ProcessInfo : TProcessInformation; 
  Result: Boolean;
Begin
  FillChar (StartupInfo, SizeOf (TStartupInfo), 0);
  StartupInfo.cb := Sizeof (TStartupInfo); 

  StartupInfo.dwFlags := STARTF_USESHOWWINDOW OR STARTF_USEPOSITION OR STARTF_USESIZE ; 
  StartupInfo.wShowWindow := aShowCmd; 

  aParameters := Format('"%s" %s', [aFilename, TrimRight(aParameters)]);

  Result := CreateProcess (
      nil,
      pChar (aParameters),
      nil,
      nil,
      false,
      NORMAL_PRIORITY_CLASS,
      nil,
      pChar(aDirectory),
      StartupInfo, 
      ProcessInfo
    );

  If Result then
    WaitForSingleObject (ProcessInfo.hProcess, INFINITE);

  if ProcessInfo.hProcess <> 0 then
    CloseHandle (ProcessInfo.hProcess);
end;					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
34:
35:
36:
37:
38:
39:
40:
41:
42:
43:
44:
45:
46:
47:
48:
49:
50:
51:
52:

procedure TForm1.Appisactive(fname:string);
var
  Res: DWORD;
  H  : HWND;
begin

  H := FindWindow(nil, Pchar(fname));

  if H = 0 then
    Label1.Caption := 'prog. n.vorhanden'
  else if SendMessageTimeout(H, WM_NULL, 0, 0, SMTO_NORMAL, 100, Res) <> 0 then
    Label1.Caption := 'reagiert';

end;

procedure TForm1.ExecNewProcess(ProgramName : String);
var
  StartInfo  : TStartupInfo;
  ProcInfo   : TProcessInformation;
  CreateOK   : Boolean;
begin

  FillChar(StartInfo,SizeOf(TStartupInfo),#0);
  FillChar(ProcInfo,SizeOf(TProcessInformation),#0);
  StartInfo.cb := SizeOf(TStartupInfo);
  CreateProcess(PChar(ProgramName),nil, nil, nil,False, CREATE_NEW_PROCESS_GROUP+NORMAL_PRIORITY_CLASS, nil, nil, StartInfo, ProcInfo);

end;


procedure TForm1.startClick(Sender: TObject);
begin

 ExecNewProcess('c:\demo.exe');

end;

procedure TForm1.stopClick(Sender: TObject);
begin

  WHILE FindWindow(nil,'demo') <> 0 DO begin
   PostMessage(FindWindow(NIL, 'demo'), wm_close, 0, 0);
  end;

end;

procedure TForm1.Timer1Timer(Sender: TObject);
begin

  Appisactive('demo');

end;					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
34:
35:
36:
37:
38:
39:
40:
41:
42:
43:
44:
45:
46:
47:
48:
49:
50:
51:
52:
53:
54:
55:
56:
57:
58:
59:
60:
61:
62:
63:
64:
65:
66:
67:
68:
69:
70:
71:
72:
73:
74:
75:
76:
77:
78:
79:
80:
81:
82:
83:
84:
85:
86:
87:
88:
89:
90:
91:
92:
93:
94:
95:
96:
97:
98:
99:
100:
101:
102:
103:
104:
105:
106:
107:
108:
109:
110:
111:
112:
113:

//Wait for a process to be fully started and responding.
// (C) 2007 by Benny Baumann (BenBE).
// User in freeware or with written permission granted as long copyright and licence remained intact.
Function CreateProcessWaitReady(ProgramFile: String; Commandline: String = ''; CurrDir: String = '.'): Boolean;
Var
    StartInfo: TStartupInfo;
    ProcInfo: TProcessInformation;

    WFSO: DWORD;
    SMT_Count: Integer;
    SMT_Done: Boolean;
Type
    TEWPInfo = Packed Record
        PI: PProcessInformation;
        SMTD: PBoolean;
    End;
    PEWPInfo = ^TEWPInfo;
Var
    EWPI: TEWPInfo;

    Function ETWProc(wnd: HWND; Param: PEWPInfo): Boolean; Stdcall;
    Var
        Res: DWORD;
    Begin
        If SendMessageTimeoutA(
            wnd,
            WM_NULL,
            0,
            0,
            SMTO_ABORTIFHUNG,
            50,
            Res) <> 0 Then
        Begin
            Param.SMTD^ := True;
            Sleep(10);
        End;
        Result := Not Param.SMTD^;
    End;

Begin
    FillChar(StartInfo, SizeOf(TStartupInfo), #0);
    FillChar(ProcInfo, SizeOf(TProcessInformation), #0);
    StartInfo.cb := SizeOf(TStartupInfo);
    StartInfo.dwFlags := STARTF_USESHOWWINDOW Or STARTF_USEPOSITION Or STARTF_USESIZE;
    StartInfo.wShowWindow := SW_SHOW;

    Commandline := Format('"%s" %s', [ProgramFile, Trim(Commandline)]);

    Result := CreateProcess(
        Nil,
        pChar(Commandline),
        Nil,
        Nil,
        false,
        NORMAL_PRIORITY_CLASS,
        Nil,
        pChar(CurrDir),
        StartInfo,
        ProcInfo
        );

    If Result Then
    Begin
        SMT_Count := 0;
        EWPI.PI := @ProcInfo;
        EWPI.SMTD := @SMT_Done;
        Repeat

            //At first check if the process is still running (and lower CPU load) ...
            WFSO := WaitForSingleObject(ProcInfo.hProcess, 100);

            //Now check for at least one window that
            SMT_Done := False;
            EnumThreadWindows(ProcInfo.dwThreadId, @ETWProc, Integer(@EWPI));
            If SMT_Done Then
                Inc(SMT_Count)
            Else
                SMT_Count := 0;
        Until (WAIT_OBJECT_0 = WFSO) Or (SMT_Count >= 10);

        Result := SMT_Count >= 10;
    End;

    If ProcInfo.hProcess <> 0 Then
        CloseHandle(ProcInfo.hProcess);
End;

Procedure TForm1.Button1Click(Sender: TObject);
Begin
    Panel1.Caption := 'Starting ...';
    Panel1.Color := clYellow;
    Update;
    Try
        If CreateProcessWaitReady(Edit1.Text) Then
        Begin
            Panel1.Caption := 'Started !!!';
            Panel1.Color := clLime;
            Update;
        End
        Else
        Begin
            Panel1.Caption := 'Failed !!!';
            Panel1.Color := clRed;
            Update;
            Raise EOSError.Create(SysErrorMessage(GetLastError));
        End;
    Finally
        Sleep(500);
        Panel1.Caption := 'Bereit';
        Panel1.Color := clBtnFace;
        Update;
    End;
End;