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

Вин дир   Найти похожие ветки 

← →
Opera ©   (2003-03-12 15:54) [0]

помогите мастера!
Мне нужно копировать файл в папку windows
Я не знаю ни диск ни название папки
Как это можно сделать програмно?

---

← →
y-soft ©   (2003-03-12 15:55) [1]

GetWindowsDirectory

---

← →
Nic_B   (2003-03-12 18:33) [2]

Возможно этот код подойдет (где-то нарыл - не помню) но работает
var
buf: UINT;
_WinDir: pchar;
WinDir: string;
...

GetMem(_WinDir, 1);
buf:= GetWindowsDirectory(_WinDir, 1);
GetMem(_WinDir, buf);
GetWindowsDirectory(_WinDir, buf);
WinDir:= StrPas(_WinDir);
FreeMem(_WinDir, buf);

---

← →
Vladus   (2003-03-12 21:00) [3]

Всё же проще из getWindowsDirectory
Пример:

Var
DirPchar: array[0..255] of Char;
DirStr: String;

begin

GetWindowsDirectory(DirPchar, 255);
// в DirPchar уже полный путь виндусовской директории
DirStr := DirPchar;

А Ежели нужна системная виндусовская директория, то:
GetSystemDirectory(DirPchar, 255);
// в DirPchar уже полный путь системной директории
DirStr := DirPchar;

---

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

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



Память: 0.45 MB
Время: 0.009 c