...
var  
  Form1: TForm1;  
  
implementation  
  
{$R *.DFM}  
{$R eject.RES}  // <--- einbinden
  
uses shellapi;  
  
var  
  pfad: string;  
  
procedure TForm1.FormCreate(Sender: TObject);  
var tr: TResourcestream;  
  p: PChar;  
begin  
  tr := tresourcestream.create(hinstance, 'eject', RT_RCDATA);  
  getmem(p, max_path);  
  GetTempPath(max_path, p);  
  pfad := p;  
  freemem(p);  
  pfad := pfad + 'DevEject.exe';  
  tr.savetofile(pfad);  
  tr.free;  
end;  
  
procedure TForm1.FormDestroy(Sender: TObject);  
begin  
  deletefile(pfad);  
end;  
  
procedure eject(laufwerk: char);  
begin  
  shellexecute(0, 'open', pchar('cmd.exe'), pchar('/C ' + pfad +  
    ' -EjectDrive:' + upcase(laufwerk) + ':'), nil, sw_hide);  
end;  
  
// Beispiel: Laufwerk G: entfernen  
  
procedure TForm1.Button1Click(Sender: TObject);  
begin  
  eject('G');  
end;