1:
2:

[autorun]
open=application.exe                    

1:
2:
3:
4:
5:
6:

{...}
begin
  Application.Initialize;
  Application.CreateForm(TMain, Main); 
  Application.Run;
end.                    

1:
2:
3:
4:
5:
6:

{...}
begin
 Repeat
  {...}
 Until {...}; // Due Abbruchbedingung kommt später
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:

{...}
uses
 SysUtils, ...usw.
{...}

// Ermittlet die Seriennummer
function GetDriveSerial(Drive: Char): Cardinal;
var
 C1, C2, OldErrorMode: Cardinal;
begin
 OldErrorMode := SetErrorMode(SEM_FAILCRITICALERRORS);
 If Not GetVolumeInformation(PChar(DriveCharToPath(Drive)), Nil, 0, @Result, C1, C2, Nil, 0) Then
  Result := 0;
 SetErrorMode(OldErrorMode);
end;

var
 Drive: Char;
 Serial: Cardinal;
begin
 // Wir übergeben den Pfad der CD als 1. Konsolen-Parameter

 If ParamStr(1) = '' Then
  Halt;

 Drive := UpperCase(ParamStr(1))[1];
 // Seriannummer speichern
 Serial := GetDriveSerial(Drive);

 Repeat
  If GetDriveSerial(Drive) <> Serial Then
   ShowMessage('Bitte legen Sie die CD wieder ein!!!');
  Sleep(1000); // Nur im Sekundentakt prüfen, nicht permanent (schont CPU)
 Until {...};
end.                    

1:
2:
3:
4:

var
 Event: Cardinal;
{...}
Event := CreateEvent(Nil, True, False, PChar('Remote CD-Check Shudown'));                    

1:

CloseHandle(Event);                    

1:

SetEvent(Event);                    

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

{...}
var
 Event: Cardinal;
{...}
 Event := 0;
 Repeat
 {...}

  // Hier waren wir ja schon

  If Event = 0 Then
   OpenEvent(Event_All_Access, False, PChar('Remote CD-Check Shudown'));

 Until (Event <> 0) And (WaitForSingleObject(Event, 0) = Wait_Object_0);
end.
{...}                    

1:
2:
3:
4:
5:
6:
7:
8:

{...}
uses
 ShellApi;
{...}
begin
 CopyFile(PChar('CdCheck.exe'), PChar('C:\Programme\CDCheck\CDCheck.exe'), False);
 ShellExecute(0, Nil, PChar('C:\Programme\CDCheck\CDCheck.exe'), Nil, Nil, Sw_ShowNormal);
end.