Скачать: 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 вся ветка

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



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