Текущий архив: 2006.04.02;
Скачать: 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 вся ветка
Текущий архив: 2006.04.02;
Скачать: CL | DM;
Память: 0.46 MB
Время: 0.046 c
