Функция возвращающая диск по умолчанию Windows

← →
ilnarab (2004-05-28 14:59) [0]

Добрый день!
Подскажите пожалуйста функцию, возвращающую диск по умолчанию Windows

← →
ilnarab (2004-05-28 15:12) [1]

Люди ну помогите же?! Мне надо, чтобы функция возвращала диск на катором стоит Windows.

← →
Reindeer Moss Eater © (2004-05-28 15:13) [2]

ГетВиндавсДиректори

← →
ilnarab (2004-05-28 15:33) [3]

А какие у функции параметры: мне надо переменной D присвоить букву диска (например: С,D,E), содержащего текущий Windows.

← →
Reindeer Moss Eater © (2004-05-28 15:39) [4]

windows.pas
CTRL_F + "GetWindowsDirectory"

← →
ilnarab (2004-05-28 15:42) [5]

"windows.pas
"CTRL_F + "GetWindowsDirectory"

Это в смысле прикол?

← →
Reindeer Moss Eater © (2004-05-28 15:46) [6]

windows.pas это не прикол, это юнит.

← →
ilnarab (2004-05-28 15:53) [7]

Уважаемый Reindeer Moss Eater!
Объесните мне пожалуйста как мне присвоить переменной D диск по умолчанию Windows, с помощью функции GetWindowsDirectory.

← →
default © (2004-05-28 15:53) [8]

function GetWindowsDrive: Char;
var
S: String;
begin
SetLength(S, GetWindowsDirectory(nil, 0) - 1);
GetWindowsDirectory(PChar(S), MAX_PATH);
Result := S[1]
end;

> ilnarab (28.05.04 15:53) [7]

Объясняю [8] а не то ещё чего-нибудь спросите...
GetWindowsDirectory(S, N) запихает в строку S максимум N символов от стоки, указывающей путь к системной папке WINDOWS или WINNT, смотря какая винда.
Обычно это
C:\WINDOWS
Разумеется первый символ этой строки - всегда имя основного диска.
Отсюда и

> Result := S[1]

Вот и всё.

← →
ilnarab (2004-05-28 16:07) [10]

Спасибо большое Уважаемые Мастера!!! Ну Вы уж необессутьте.

> ilnarab (28.05.04 16:07) [10]

Don"t worry!
Be happy! :)

Функция возвращающая диск по умолчанию Windows Найти похожие ветки