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:

procedure TForm1.FormCreate(Sender: TObject);
  begin
 if Paramstr(1) = 'autorun' then begin
   ParaStatus := 1;
   Form1.Button1.Click;
  end
  else
  ParaStatus := 0;
  end;



procedure TForm1.Button1Click(Sender: TObject);

VAR
  Dateiname: string;
  Directory: string;
  ShellErrorCode: INTEGER;
  exInfo: TShellExecuteInfo;
  Ph: DWORD;
  Aktiv: INTEGER;

begin

Label1.Caption := ('Vorgang läuft...');
ADOQueryMaster_Prog.First;

WHILE NOT ADOQueryMaster_Prog.Eof DO
  BEGIN
  Dateiname:= ADOQueryMaster_Prog['ExecuteFile'];
  Directory:= ADOQueryMaster_Prog['Directory'];
  Aktiv:= ADOQueryMaster_Prog['Aktiv'];

  if Aktiv = 1 then
     begin
     FillChar(exInfo, SizeOf(exInfo), 0);
     with exInfo do
        begin
          cbSize := SizeOf(exInfo);
          fMask := SEE_MASK_NOCLOSEPROCESS or SEE_MASK_FLAG_DDEWAIT;
          Wnd := GetActiveWindow();
          ExInfo.lpVerb := 'open';
          ExInfo.lpParameters := PChar(0);
          lpFile := PChar(Directory + Dateiname);
          nShow := SW_SHOWNORMAL;
        end;  {with}
  if ShellExecuteEx(@exInfo) then
    Ph := exInfo.HProcess
    else
    begin
      ShowMessage(SysErrorMessage(GetLastError));
    end;  {else}
  while WaitForSingleObject(ExInfo.hProcess, 50) <> WAIT_OBJECT_0 do
      Application.ProcessMessages;
      CloseHandle(Ph);
      end;
  ADOQueryMaster_Prog.Next;

  END; {while}
ADOQueryMaster_Prog.Active := FALSE;
Label1.Caption := ('Vorgang abgeschlossen!');


if ParaStatus = 1 then
  begin
  form1.Close;
  end;

end; {}                    

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

Procedure fuu(ba:String);
begin
   Anweisung;
   if Abfrage then
       DoSomething
   else
   begin
      DoSomething(else);
      FoooBaar;
   end;
end;