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

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

WIN API [D5, WinXP]

_Sa_nya ©   (2006-03-19 21:59:00) 

Напишите пожалуйста примеры использования функций GETSYSTEMDIRECTORY, GETWINDOWSDIRECTORY, а то я пишу:

procedure TForm1.Button4Click(Sender: TObject);
var
dir: PCHAR;
begin
getWINDOWSdirectory(dir, 1024);
end;

и при выполнении выдается сообщение об ошибке, менять размер буфера dir пробовал. Большое спасибо, если будет ответ.

---

Dmitrij_K   (2006-03-20 00:22:00) [1]

var sLocation : String;

   SetLength(sLocation, MAX_PATH);
   SetLength(sLocation, GetWindowsDirectory(pchar(sLocation), MAX_PATH));
   sLocation := IncludeTrailingPathDelimiter(sLocation);


---

Kerk   (2006-03-19 22:55:00) [2]

procedure TForm1.Button4Click(Sender: TObject);
var
dir: PCHAR;
begin
getmem(dir,1024);
getWINDOWSdirectory(dir, 1024);
end;

---

Наверх