---

I'm new in using Turbo Pascal and I want to use external functions
from a library. So all docs and tutz i found said that this code below
is correct, but it won't work in turbo pascal 7.0
So is there anybody who can correct this code syntax ?
thx

--------8<-------------------------------------------------------
program test;
var Buffer : String;
ret : integer;

function GetWindowsDirectory(lpBuffer : String; nSize : LongInt) : LongInt;
far; external 'KERNEL32.DLL' name 'GetWindowsDirectoryA';

begin
ret := GetWindowsDirectory(Buffer,11);
WriteLn(Buffer); ReadLn;
end.
--------8<-------------------------------------------------------

---

Just as I expected, "Herr der Fliegen" <lordoftheflies666@gmx.net>
came up with this:

>but it won't work in turbo pascal 7.0

>function GetWindowsDirectory(lpBuffer : String; nSize : LongInt) : LongInt;
>far; external 'KERNEL32.DLL' name 'GetWindowsDirectoryA';

As far as I can see, this is the problem. TP7 is a 16 bit dos/win
compiler, but you are trying to call a function in a 32 bit dll, that
will never work. Try changing 'KERNEL32.DLL' to 'KERNEL.DLL', or maybe
'KERNEL386.EXE'. That _might_ work.

Niels (aka. niLLer)
--
e-mail: nmartin at iname dot com ICQ UIN: 50187323
http://xoasis.com/~niller/ - niLLer's pages (My programs, in English)
http://whitehat.dk/g4s/ - The G4S Page (Personlig side, på dansk)
-- I've been Windozed!