Lidt af hvert...

1.
Dette er lånt fra en newsgroup

This code reads the serial number for the drive indicated.  This is the volume serial number from the operating system, not the disk serial number (for Hard Disks).

function GetSerialNumber: String;
var
  VolumeSerialNumber : DWord;
  MaximumComponentLen: DWord;
  FileSystemFlags    : DWord;
begin
  GetVolumeInformation('A:\',
                        NIL,
                        0,
                        @VolumeSerialNumber,
                        MaximumComponentLen,
                        FileSystemFlags,
                        Nil,
                        0);
  GetSerialNumber := IntToHex(HiWord(VolumeSerialNumber),4)+
                      '-'+
                      IntToHex(LoWord(VolumeSerialNumber), 4)+
end;

2.
Benyt winapi's copyfile funktion

til blackthorne >>
tak for det første svar men uddyb lige nummer 2
Hilsen The Hacker

Copyfile ligger i windows unitten og ser sådan ud
function CopyFile(lpExistingFileName, lpNewFileName: PChar; bFailIfExists: BOOL): BOOL; stdcall;

kaldes med
copyfile(PChar('C:\Text.Text'), PChar('d:\Text.txt'), True hvis operationen skal fejle når filen eksistere i forvejen og false når den vare skal overskrive filen