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:

  BMPname := 'C:\delphi\test.bmp';
  SavePictureDialog1.FileName := BMPname;
  if SavePictureDialog1.Execute then BMPname:=SavePictureDialog1.FileName;
  Image.Picture.Bitmap.SaveToFile(BMPname);

  AssignFile (Text_Datei, 'C:\delphi\test.rc');
  Rewrite(Text_Datei);
  Writeln(Text_Datei, 'BILD1 BITMAP "' + BMPName + '"');
  CloseFile(Text_Datei);

  AssignFile (Text_Datei, 'C:\delphi\test.dpr');
  Rewrite(Text_Datei);
  Writeln(Text_Datei, 'library Bild;');
  // Hier steht als Caption die Zeile {$R 'Lizenz.res','Lizenz.rc'} drin,
  // das Label selbst ist unsichtbar und stört so nicht...war so das einfachste ;-)
  Writeln(Text_Datei, label1.caption );
  Writeln(Text_Datei, 'begin');
  Writeln(Text_Datei, 'end.');
  CloseFile(Text_Datei);
  
  // Recourcendatei erstellen
  ShellExecute(0,
               'open',
               'C:\delphi\Bin\BRCC32.EXE',
               'C:\delphi\test.rc',
               nil,
               SW_NORMAL);
  // DLL erzeugen
  ShellExecute(0,
               'open',
               'C:\delphi\Bin\DCC32.EXE',
               'C:\delphi\test.dpr',
               nil,
               SW_NORMAL);