Вин дир

← →
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;

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