|
Here is some code I'm using, some one might have improvemnets
on it. Only work of course on Xp
BTW how do you determine is a machine is Xp? environment
varible "OS" tells us about NT
============================================================
procedure burnArchive(sender ; Tobject)
var
counter : integer; cdburningarea, fileStem :string;
Function getenv( const envvar: String ):
String;
var bytesNeeded: DWORD; begin bytesNeeded := GetEnvironmentvariable(PChar(envvar), Nil, 0 ); If bytesNeeded > 0 Then Begin SetLength( Result, bytesNeeded-1 ); GetEnvironmentVariable( PChar(envvar), Pchar(Result), bytesNeeded ); End Else Result := EmptyStr; End; begin cdburningarea := getenv('HOMEDRIVE') +getenv('HOMEPATH')+'\Local Settings\Application Data\Microsoft\CD Burning\'; //filelistrestoredata is a filelistbox pointing to a directory
of Archive Zips
for counter := 0 to filelistrestoredata.Items.Count -1 do if filelistrestoredata.Selected[counter] then begin filestem :=filelistrestoredata.items[counter]; copyfile(pchar(filelistrestoredata.Directory+'\'+filestem),pchar(cdburningarea + filestem),false); end; end;
|
_______________________________________________ Delphi mailing list [EMAIL PROTECTED] http://ns3.123.co.nz/mailman/listinfo/delphi
