Hi Muetze1,
ich hab mich durch die miese Formatierung etwas durcheinander bringen lassen. Der Compiler sollte aber eher wegen der fehlenden End's meckern.
so sollte es aber doch richtig sein ... oder bin ich jetzt blind
Delphi-Quellcode:
type TPortOut = procedure(Port:Word;Data:Byte); stdcall;
var PortOut: TPortOut = nil;
AHandle: THandle = 0;
implementation
procedure TForm1.Button1Click(Sender: TObject);
begin
AHandle := LoadLibrary('io.dll');
if AHandle <> 0 then begin
PortOut := GetProcAdress(AHandle, 'PortOut');
if PortOut <> nil then
PortOut($378,255);
FreeLibrary(AHandle);
end;
end;
Gruß oki
[edit] ich formatiere mich hier noch um Kopf und Kragen [/edit]