Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2009.03.29;
Скачать: CL | DM;

Вниз

Аналог функции GetWindowsDirectory   Найти похожие ветки 

 
Андрей   (2008-04-01 16:56) [0]

Доброго времени суток!

Хочу (для примера) импортировать динамически функцию GetWindowsDirectory (GetSystemDirectory).

Для примера:

function  GWD: function(lpBuffer: PAnsiChar; uSize: UINT): UINT;

var
h: THandle;
Buffer: array [0..MAX_PATH] of Char;
begin
h:= LoadLibrary("kernel32.dll");
if h >= 32 then
 begin
  @GWD:= GetProcAddress(h, "GetWindowsDirectoryA");
  if @GWD <> nil then
   begin
    GWD(Buffer, MAX_PATH);
//     GetWindowsDirectoryA(Buffer, MAX_PATH);
    Edit1.Text:= Buffer;            
   end;
FreeLibrary(h);

Если напишу GWD(Buffer, MAX_PATH) - ничего не выходит. Если же пишу GetWindowsDirectoryA(Buffer, MAX_PATH) - все получается. Что я делаю не так? если можно, ответьте мылом, please!


 
tesseract ©   (2008-04-01 16:58) [1]

о она разве не StdCall ?


 
Dimaxx ©   (2008-04-02 01:26) [2]


> function  GWD: function(lpBuffer: PAnsiChar; uSize: UINT): UINT;

Странноватая запись...


 
Германн ©   (2008-04-02 02:16) [3]


> Dimaxx ©   (02.04.08 01:26) [2]
>
>
> > function  GWD: function(lpBuffer: PAnsiChar; uSize: UINT):
>  UINT;
>
> Странноватая запись...
>

"Странноватая". Но вполне рабочая в данном случае. Но с учётом tesseract ©   (01.04.08 16:58) [1]



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

Текущий архив: 2009.03.29;
Скачать: CL | DM;

Наверх




Память: 0.47 MB
Время: 0.029 c
9-1177600266
$00FF00
2007-04-26 19:11
2009.03.29
Проблемы с трением


2-1233218140
arhis
2009-01-29 11:35
2009.03.29
Закрытие программы


4-1207116283
kudatsky
2008-04-02 10:04
2009.03.29
О функции SHFileOperation


2-1233786340
Dmitry87
2009-02-05 01:25
2009.03.29
Обработка большого кол-ва строк


1-1208421010
Petrovich
2008-04-17 12:30
2009.03.29
Показ формы из компонента