title image


Smiley Re: Dringend: Suche Komponente !!!
Folgende Procedure macht es:





procedure CopyDrimeImage(ADrive, AImage: string);

var

FS1, FS2: TFileStream;

begin

FS1 := TFileStream.Create('\\.\' + ADrive, fmOpenWrite or fmShareExclusive);

try

FS2 := TFileStream.Create(AImage, fmOpenRead);

try

FS1.Position := 0;

FS2.Position := 0;

FS1.CopyFrom(FS2, FS2.Size);

finally

FS2.Free

end;

finally

FS1.Free

end

end;



procedure TForm1.Button2Click(Sender: TObject);

begin

CopyDrimeImage('A:', 'H:\images\cdrom.img');

end;









P. S. Die entstandenen Entwicklungskosten in Höhe von 7,63 EUR bitte ich auf mein Konto zu überweisen

geschrieben von

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: