Verschiedene Befehle

[ichbins]

Du kannst dir deine kopier-Funktion aber auch selber basteln:

Delphi-Quellcode:

function copyafile(fromfile,tofile:string):boolean;
var
  f,t:file of byte;
  tocopy,copied:integer;
  buf:array[1..4096] of byte;
begin
  result:=false;
  try begin
    assignfile(f,fromfile);
    assignfile(t,tofile);
    reset(f);
    rewrite(t);
    while not eof(f) do begin
      blockread(f,buf,length(buf),tocopy);
      blockread(f,buf,tocopy,copied);
      if ((copied<>tocopy) or (tocopy=0)) then 
        raise exception.create('Datei konnte nicht vollständig kopiert werden.');
    end; 
    closefile(f);
    closefile(t);
    result:=true;
  end except end;
end;

[Delphiprogrammieranfänger]

Zitat:

Zitat von ichbins

Du kannst dir deine kopier-Funktion aber auch selber basteln

Wo liegt da der Sinn, wenn es die Funktion schon gibt?
Außerdem hat er dann ja nicht die Funktion selbst gebastelt, sondern von irgendwo anders abgeschrieben wie du auch gerade. :roll:

[faux]

Zitat:

Zitat von ichbins

Du kannst dir deine kopier-Funktion aber auch selber basteln:

Wieso das Rad neu erfinden? Es gibt doch schon eine Funktion die genau das Selbe macht.

Grüße
Faux

[philiph]

Und wie kann ich z.B. die Datei Test.exe öffnen/ausführen

[faux]

Zitat:

Zitat von ichbins

Delphi-Quellcode:

//zum Starten der Datei verwendest du
uses
  ..., shellapi;

[...]

shellexecute(handle,'open',pansichar(dateiname),'','',1);