Header zu Unit Problem !

[nitschchedu]

Der Komplete aufruf sieht so aus.

Delphi-Quellcode:

procedure TForm1.Button15Click(Sender: TObject);
var
  Error: TnduSteamError;
  intSteamEngine: Cardinal;
begin
  intSteamEngine := SteamStartup(NDU_STEAM_USING_LOGGING, @Error);

  if intSteamEngine <> 1 then
  begin
    SteamShutdownEngine(@Error);
    ShowMessage('Error!');
  end;
end;

Im Error steht zwar der Fehler MSG unter Error.szDesc aber am ende kommt der Fehler.

SteamStartUP

Code:

STEAM_API int            STEAM_CALL   SteamStartup( unsigned int uUsingMask, TSteamError *pError );