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;

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