Hallo ich hab ein problem ich verwende in einer application das script hier
Delphi-Quellcode:
function CopyFileEx(const ASource, ADest: String;
ARenameCheck: boolean = false): boolean;
var
sh: TSHFileOpStruct;
begin
sh.Wnd := Application.Handle;
sh.wFunc := FO_COPY;
// String muss mit #0#0 Terminiert werden, um das Listenende zu setzen
sh.pFrom := PChar(ASource + #0);
sh.pTo := PChar(ADest + #0);
sh.fFlags := fof_Silent or fof_MultiDestFiles;
if ARenameCheck then
sh.fFlags := sh.fFlags or fof_RenameOnCollision;
Result:=ShFileOperation(sh)=0;
end;
und dann hab ich auf einen button click das hier
CopyFileEx(Application.Exename,'C:\Programme\');
also das programm was gerade gestartet ist, soll sich in c:\programme kopieren aber wenn ich dann klicke kommt der fehler
Zitat:
Kann nicht Kopiert werden, Zugriff verweigert Stellen sie sicher das es nicht verwendet wird blablalba
aber eigentlich kann man doch sachen kopieren wenn sie laufen nur nicht umbenennen und verschieben aber kopieren müsste doch gehen oder nicht?