Hallo ihr Tüftler, die Anweisung "LoadLibrary(pChar(CardsDllFn))" im unten angeführten Code ergibt bei mir immer 0 !! Was mache ich falsch? Ich verwende Win98 und Delphi6.
In der Hoffnung auf Antwort MFG Hans
var
Form1: TForm1;
CardsDll:Cardinal;
const
CardsDllFile='CARDS.DLL';
implementation
{$R *.dfm}
Function GetSystemDir:String;
var SysDir:PChar;
begin
GetMem(SysDir,MAX_PATH);
Try
GetSystemDirectory(SysDir,MAX_PATH);
Result:=string(Sysdir);
Finally
if Assigned(SysDir) then FreeMem(SysDir,MAX_PATH)
end
end;
procedure TForm1.FormCreate(Sender: TObject);
var CardsDllFn: TFileName;
begin
CardsDllFn:=IncludeTrailingPathDelimiter(GetSystem Dir)+CardsDllFile;
CardsDll:=LoadLibrary(pChar(CardsDllFn));
Label1.Caption:=IntToStr(CardsDll)
end;
In der Hoffnung auf Antwort MFG Hans
var
Form1: TForm1;
CardsDll:Cardinal;
const
CardsDllFile='CARDS.DLL';
implementation
{$R *.dfm}
Function GetSystemDir:String;
var SysDir:PChar;
begin
GetMem(SysDir,MAX_PATH);
Try
GetSystemDirectory(SysDir,MAX_PATH);
Result:=string(Sysdir);
Finally
if Assigned(SysDir) then FreeMem(SysDir,MAX_PATH)
end
end;
procedure TForm1.FormCreate(Sender: TObject);
var CardsDllFn: TFileName;
begin
CardsDllFn:=IncludeTrailingPathDelimiter(GetSystem Dir)+CardsDllFile;
CardsDll:=LoadLibrary(pChar(CardsDllFn));
Label1.Caption:=IntToStr(CardsDll)
end;
Comment