Hallo :>
ich schreibe gerade einen key-Changer für half-life.
Funktioniert eigentlich soweit auch ganz gut, bis auf eine blöde if anweisung :/
Delphi-Quellcode:
procedure TForm1.Button6Click(Sender: TObject);
var
reg: tregistry;
buffer: String;
i: integer;
begin
if RadioButton4.checked and ListBox1.Selected[i] then
begin
Buffer := Listbox1.Items.Strings[listbox1.Itemindex];
reg := tregistry.create;
reg.RootKey := HKEY_CURRENT_USER;
try
Reg.OPENKEY('\Software\Valve\Half-Life\Settings\',true);
except
Reg.CreateKey('\Software\Valve\Half-Life\Settings\');
end;
reg.writestring('Key',buffer);
reg.free
end
else
begin
if listbox1.Selected[i] then
begin
reg := tregistry.create;
reg.RootKey := HKEY_CURRENT_USER;
try
Reg.OPENKEY('\Software\Valve\CounterStrike\Settings\',true);
except
Reg.CreateKey('\Software\Valve\CounterStrike\Settings\');
end;
reg.writestring('Key',buffer);
reg.free
end
else
showmessage('Klicke bitte einen key an!');
end;
end;
die prozedur checkt ob radiobutton 4 aktiviert ist, und setzt dann die reg datei, ist radiobutton4 nicht aktiviert, setzt er nen anderen key. Jedoch sollte zu gleich auch gecheckt werden, ob überhaupt in der Listbox einen key markiert wurde!
und genau da liegt mein problem. das Programm lässt sich compilieren, ich kann auch die keys setzen, jedoch ...
markiere ich keinen eintrag in der listbox, schmiert mir das programm ab :/
Vielen dank im vorraus für eure Hilfe
Achja ...
Wenn ihr tips habt, wie ich das ganze vieleicht etwas systemfreundlicher ( sprich weniger syslastung ) Coden kann, bin ich natührlich sehr dankbar
greetz
sharkx
[edit=Daniel B]Delphi-Tags gesetzt und Code formatiert. MfG Daniel B.[/edit]