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