| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

GetWindowsDirectory [D5, WinXP]

olphi ©   (2002-10-24 01:45:00) 

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

Следующий код не работает:
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:00) [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;

---

Наверх