Bedingt Prozedur aufrufen

[oki]

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]