Скачать: CL | DM;

Функция возвращающая диск по умолчанию 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;

---

← →
WebErr ©   (2004-05-28 16:01) [9]

> 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]

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

---

← →
WebErr ©   (2004-05-28 16:31) [11]

> ilnarab   (28.05.04 16:07) [10]

Don"t worry!
Be happy! :)

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.47 MB
Время: 0.024 c