| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

Аналог функции GetWindowsDirectory [D6, D7, WinXP]

Андрей ©   (2008-04-01 16:56:00) 

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

Хочу (для примера) импортировать динамически функцию 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!

---

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

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

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

---

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

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

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

---

tesseract   (2008-04-01 16:58:00) [3]

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

---

Наверх