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);

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