Delphi-PRAXiS
Seite 2 von 2     12   

Delphi-PRAXiS (https://www.delphipraxis.net/forum.php)
-   Sonstige Fragen zu Delphi (https://www.delphipraxis.net/19-sonstige-fragen-zu-delphi/)
-   -   Delphi Verschiedene Befehle (https://www.delphipraxis.net/58610-verschiedene-befehle.html)

ichbins 9. Dez 2005 16:17

Re: Verschiedene Befehle
 
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 9. Dez 2005 16:39

Re: Verschiedene Befehle
 
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 9. Dez 2005 16:40

Re: Verschiedene Befehle
 
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 9. Dez 2005 16:56

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

faux 9. Dez 2005 16:57

Re: Verschiedene Befehle
 
Zitat:

Zitat von ichbins
Delphi-Quellcode:
//zum Starten der Datei verwendest du
uses
  ..., shellapi;

[...]

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



Alle Zeitangaben in WEZ +1. Es ist jetzt 01:41 Uhr.
Seite 2 von 2     12   

Powered by vBulletin® Copyright ©2000 - 2025, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024 by Thomas Breitkreuz