Hi,
ich möchte eine Art Instalations Programm schreiben das auch unter Vista laufen soll.
Nun muss dieses einige Dateien nach "C:\Programme" kopieren. Das funktionirt unter Vista ja nicht einfach so.
Ich selber habe nur XP und habe deswegen einen Freund folgendes Programm testen lassen:
Delphi-Quellcode:
procedure copy;
var
themp: string;
begin
themp := IncludeTrailingBackslash(SysUtils.GetEnvironmentVariable('ProgramFiles'));
showmessage(SysUtils.GetEnvironmentVariable('ProgramFiles'));
copyfile(PChar(ExtractFilePath(ParamStr(0)) + 'text.txt'), PChar(themp + 'test1.txt'), false);
copyfile(PChar(ExtractFilePath(ParamStr(0)) + 'text.txt'), PChar(themp + 'test2.txt'), false);
copyfile(PChar(ExtractFilePath(ParamStr(0)) + 'text.txt'), PChar(themp + 'test3.txt'), false);
copyfile(PChar(ExtractFilePath(ParamStr(0)) + 'text.txt'), PChar(themp + 'test4.txt'), false);
copyfile(PChar(ExtractFilePath(ParamStr(0)) + 'text.txt'), PChar(themp + 'test5.txt'), false);
copyfile(PChar(ExtractFilePath(ParamStr(0)) + 'text.txt'), PChar(themp + 'test6.txt'), false);
end;
Das funktionirt auch aber nur dann wen das Programm als Administrator ausgeführt wird.
Wie kann ich ereichen das beim Normalen ausführen wenigstens ein Bestätigungs Dialog oder so etwas kommt bzw. das Programm mit Administrator rechten gestartet werden muss!
PS: Ich benutze Delphi 7