try...except problem

[paritycheck]

Ich kenne die Komponente leider nicht aber was ich mich gefragt hab ist wo GamePadCount herkommt? Ist das ein von Dir definierter Wert oder müsste es nicht eher joy.GamePadCount heissen?

Ansonsten vielleicht so:

Delphi-Quellcode:

cbpads.clear;
for i := 0 to GamePadCount - 1 do
    try
      joy.ID := i;
      cbpads.Items.Add(joy.InstanceName);
    except
    end; 
if cbPads.Items.count = 0 then
Showmessage('Kein Joystick bla bla');