Einzelnen Beitrag anzeigen

barf00s
(Gast)

n/a Beiträge
 
#11

Re: CMD Befehle in Delphi ausführen (mehrere)

  Alt 8. Jul 2005, 09:15
entpacken musst du garnix, jedoch musst du sie vorher "auslesen/extrahieren" und dann ausführen ...

myEXE.rc:

BATFILE RT_RCDATA C:\reboot.bat

kompilieren mit

brcc32.exe myExe.rc

dann in deinem delphi programm

{$R myExe.res}

und extrahiern kannst des während dein programm läuft mit

Delphi-Quellcode:
var
  xRS: TResourceStream;
  xFS: TFileStream;

begin
  xRS := TResourceStream.Create(hInstance, 'BATFILE', RT_RCDATA);
  try
    xRS.Position := 0;
    xFS := TFileStream.Create('C:\Windows\Temp\blah.bat', fmCreate);
    xFS.CopyFrom(xRS, xRS.Size);
  finally
    FreeAndNil(xFS);
    FreeAndNil(xRS);
  end;
end;
und wie man dateien ausführt weist ja ShellExecute() CreateProcess() .....
  Mit Zitat antworten Zitat