Hmm ne Frage... wie ist denn der Befehl dafür ?
Ich möchte, dass wenn keine autoexec.cfg da ist
Code:
procedure TEagle.Image9Click(Sender: TObject);
begin
Panel1.Visible := false;
Panel2.Visible := false;
Panel3.Visible := false;
Panel4.Visible := false;
Panel5.Visible := false;
Panel6.Visible := false;
Panel7.Visible := true;
sl:=TStringList.Create;
try
if (Checkbox2.checked = true) then begin
sl.LoadFromFile(Label16.Caption +'\autoexec.cfg');
if pos('exec Binds.cfg', sl.Text)=0 then begin
sl.Add('exec Binds.cfg');
end;
end;
sl.SaveToFile(Label16.Caption + '\autoexec.cfg');
finally
sl.free;
end;
begin
sl:=TStringList.Create;
try
if (Checkbox2.checked = true) then begin
if (checkbox4.checked = true) then begin
sl.Add('bind "'+edit1.text+'" "m4a1; ak47; primammo; defuser; stopsound"');
end;
if (checkbox5.checked = true) then begin
sl.Add('bind "'+edit2.text+'" "deagle; secammo; defuser; stopsound"');
end;
if (checkbox6.checked = true) then begin
sl.Add('bind "'+edit3.text+'" "awp; primammo; defuser; stopsound; say_team - awp -"');
end;
if (checkbox7.checked = true) then begin
sl.Add('bind "'+edit4.text+'" "primammo; stopsound"');
end;
if (checkbox8.checked = true) then begin
sl.Add('bind "'+edit5.text+'" "secammo; stopsound"');
end;
if (checkbox9.checked = true) then begin
sl.Add('bind "'+edit6.text+'" "defuser; hegren; flash; sgren; flash; vesthelm; stopsound"');
end;
if (checkbox10.checked = true) then begin
sl.Add('bind "'+edit7.text+'" "+commandmenu"');
end;
end;
sl.SaveToFile(Label16.Caption + '\Binds.cfg');
finally
sl.free;
end;
end;
end;
procedure TEagle.Button1Click(Sender: TObject);
begin
Netsettings.Visible := true;
end;
ps: Ich habe absolut keinen Plan wie man richtig "formatiert"... habe es hier probiert nachzustellen, aber scheint nichts geworden zu sein... gibts dafür auch nen Tutorial ?