узнать системный диск

[CraZZy RabbIt]

как можно узнать какой диск в системе является системным...можно проверять если ли системная папка на диске,но нужно определить именно диск,с системой которая загруженна в данный момент....как реализовать подобное??может есть функция какая?

[Terran]

Определить диск можете так:

Function WinDir: String;
Var
IntLen: Integer;
StrBuffer: String;
Begin
SetLength(StrBuffer,1000);
IntLen:=GetWindowsDirectory(PChar(StrBuffer),1000);
WinDir:=Trim(Copy(StrBuffer,1,IntLen));
End;

В случае надобности лишнее можете откинуть.
Если нужен чисто диск, то отсеять ненужную инфу можете так:

Procedure TForm1.Button1Click(Sender: TObject);
Var
S: String;
Begin
S:=WinDir;
Delete(S,4,Length(S)-3);
Edit1.Text:=S;
End;

[CraZZy RabbIt]

спасибо!!!!!