как программно узнать на каком из диске стоит ОС?

[spydark91]

написал код для этог

repeat
        d:=DirectoryExists('C:\Windows');
          if d=true then c:=true
                    else
                      begin
                        x:=GetLogicalDrives();
                        for i:=1 to 64 do
                          begin
                            bit:=x and 1;
                              if bit=1 then
                                begin
                                  tp:=GetDriveType(PChar(chr(64+i)));
                                    if tp=DRIVE_FIXED then
                                      begin
                                        d:=DirectoryExists(tp+(PChar(':\Windows')));
                                          if d=true then
                                            begin
                                              c:=true;
                                              break;
                                            end
 
                                                    else
                                                      x:= x shr 1;
                                            end;
                                      end;
                                end;
                          end;
 
      until c=true;

но мне кажется что тут чет не правельно
(проверяю так-есть папка windows на диске или нет)

[veniside]

> но мне кажется что тут чет не правельно

сама идея порочна. Юзайте GetSystemDirectory() или SHGetFolderPath().

[Пепел Феникса]

а если винда не в папке windows?
что тогда?

function GetWindowsPath:string;
begin
 SetLength(Result,MAX_PATH);
 SetLength(Result,GetWindowsDirectory(@Result[1],MAX_PATH));
end;

держите

GetSystemDirectory

то путь к system32

[veniside]

> то путь к system32

ок, предлагаю компромисс — GetSystemWindowsDirectory()

[spydark91]

так чтоли

var b:word;
begin
GetSystemDirectory(PChar('system32'),b);
label1.Caption:=IntToStr(b);

[Пепел Феникса]

по описанию параметров один в один с той что я привел, странно зачем...

ТС, вы ппц, я в ответе привел полностью готовую функцию, вставляй в код, да вызывай.

[spydark91]

а,точно,спасибо) не видел

[veniside]

> по описанию параметров один в один с той что я привел, странно зачем...

это для терминальных серверов:

With Terminal Services, the GetSystemWindowsDirectory function retrieves the path of the system Windows directory, while the GetWindowsDirectory function retrieves the path of a Windows directory that is private for each user. On a single-user system, GetSystemWindowsDirectory is the same as GetWindowsDirectory.

[Пепел Феникса]

сервисов а не серверов.
ну а у нас разве сервис?

[volod3000]

Сообщение от Пепел Феникса

function GetWindowsPath:string;
begin
 SetLength(Result,MAX_PATH);
 SetLength(Result,GetWindowsDirectory(@Result[1],MAX_PATH));
end;

И сделайте вывод

Copy(GetWindowsPath,1,1);

и будет Вам буква диска.