Batch in Delphi

[DeddyH]

Meinst Du vielleicht so etwas?

Delphi-Quellcode:

uses ShellAPI;

resourcestring
  Batchinhalt = '@echo off' +
                sLineBreak +
                'dir %windir%' +
                sLinebreak +
                'pause' +
                sLineBreak +
                'del %0';

procedure TFormBla.ButtonBatchClick(Sender: TObject);
var TempPath, TempFile: string;
    Lines: TStringlist;
    ErrorCode: Cardinal;
begin
  SetLength(TempPath, MAX_PATH + 1);
  if GetTempPath(MAX_PATH, @TempPath[1]) <> 0 then
    begin
      SetLength(TempPath, StrLen(PChar(TempPath)));
      TempFile := IncludeTrailingPathDelimiter(TempPath) + 'wuppdi.bat';
      Lines := TStringlist.Create;
      try
        Lines.Text := Batchinhalt;
        Lines.SaveToFile(TempFile);
        ErrorCode := ShellExecute(0,'open',PChar(TempFile),nil,nil,SW_SHOW);
        if ErrorCode < 33 then
          MessageBox(0,PChar(Format('Fehlercode: %d',[Errorcode])),'Oha!',0);
      finally
        Lines.Free;
      end;
    end;
  SetLength(TempPath,0);
end;