Zitat von
DeddyH:
if CopyFileEx(ParamStr(0),neuer_Dateiname) then...
funktioniert nicht..
Delphi-Quellcode:
if CheckBox1.Checked then
begin
if CopyFile(ParamStr(0),Chat, PChar('B:\Backup.exe'), False) then
Memo1.Lines.Add('Backup create')
else
RaiselastOSError;
end
else
begin
if DeleteFileToRecycleBin('B:\Backup.exe') then
begin
EmptyRecycleBin;
Memo1.Lines.Add('Backup delete')
end
else
Memo1.Lines.Add('Backup delete :ERR')
end;
da sagt er, dass der ParamStr (0) falsch ist ..