try...except problem

[Klaus01]

Benutzt Du diese Unit -> http://www.delphipraxis.net/internal...ct.php?t=85712
Dann bringt TGamePad.create keine Exception wenn kein GamePort da ist.
Das Objekt wird einfach erstellt.
Du müsstest dann die DeviceNr abfragen, wenn die 0 ist, sit kein GamePort da.

Wenn es eine andere Unit sein sollte, post sie doch bitte mal.

Ansonsten kannst Du Deinen Code auch so ändern, das Du abfragst
ob etwas in der Liste ist:

Delphi-Quellcode:

    joy := TGamePad.Create(0);
    if GamePadCount > 0 then
    for i := 0 to GamePadCount - 1 do
      begin
        joy.ID := i;
        cbpads.Items.Add(joy.InstanceName);
      end
    else
      showmessage('No Joystick/Gamepad found');

Grüße
Klaus