Текущий архив: 2002.12.05;
Скачать: CL | DM;

Вниз

GetWindowsDirectory   Найти похожие ветки 

← →
olphi ©   (2002-10-24 01:45) [0]

Приведите пример с этой функцией...

Следующий код не работает:
var
windir:string;
wd:pchar;

begin
GetWindowsDirectory(wd, 255);
windir := Strpas(wd);
showmessage (windir);
end;


А такой работает, но вместо пути каталога выдаёт три непонятных символа
var
windir:string;
wd:pchar;

begin
GetWindowsDirectory(wd, 10);
windir := Strpas(wd);
showmessage (windir);
end;

---

← →
Vad ©   (2002-10-24 02:35) [1]

"...выдаёт три непонятных символа"

Посылает, значит... :-)

Var
windir:string;
wd:array[0..255] of char;
begin
GetWindowsDirectory(Wd, SizeOf(Wd));
windir:=StrPas(Wd);
showmessage (windir);
end;
Или проще...

var
windir:string;
wd:array[0..255] of char;
begin
SetString(Windir, wd, GetWindowsDirectory(Wd, SizeOf(Wd)));
showmessage (windir);
end;

---

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

Текущий архив: 2002.12.05;
Скачать: CL | DM;

Наверх

Память: 0.46 MB
Время: 0.012 c