Аналог функции 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;

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

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

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

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