Скачать: CL | DM;

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

← →
_Sa_nya   (2006-03-19 21:59) [0]

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

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

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

---

← →
Kerk ©   (2006-03-19 22:55) [1]

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

---

← →
Dmitrij_K   (2006-03-20 00:22) [2]

var sLocation : String;

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


---

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

Скачать: CL | DM;



Память: 0.45 MB
Время: 0.026 c