jak zrobic aby podczas uruchamiania programu pokazywalo sie okienko np. about i uzytkownik moze zaznaczyc pocje aby sie nie pokazywalo w przyszlosci
?
Pozdrawiam Tomash
Luuudzie dajcie mi jakiegos plusa. :-(
jak zrobic aby podczas uruchamiania programu pokazywalo sie okienko np. about i uzytkownik moze zaznaczyc pocje aby sie nie pokazywalo w przyszlosci
?
Pozdrawiam Tomash
Luuudzie dajcie mi jakiegos plusa. :-(
Jesli uzytkownik zaznaczy opcje "nie pokazuj wiecej okna" to program moze zapisac ta informacje do rejestru i przy kazdym uruchomieniu sprawdzac w rejestrze czy ma pokazac okno.
Jak zapisywac i sprawdzac informacje w rejestrze masz opisane na tej stronie.
A moze mi ktos sypnie jakimś kodem? 8-0
Dobhry kod:
Procedure TTipFrm.OKClick(Sender: TObject);
var
Reg: TRegistry;
begin
Reg:=TRegistry.Create;
Reg.RootKey:=HKEY_LOCAL_MACHINE;
Reg.OpenKey('Software/Myapp/Opts',True);
Reg.WriteBool('Show@Start', CheckBox1.Checked);
Reg.Free;
end;
a przy creatowaniu formy to:
Procedure TMain.Create(Sender: TObject);
var
Reg: TRegistry;
begin
Reg:=TRegistry.Create;
Reg.RootKey:=HKEY_LOCAL_MACHINE;
Reg.OpenKey('Software/Myapp/Opts',True);
If Reg.ReadBool('Show@Start') then
begin
//Pokaż forme
end
//w przeciwnym wypadku nie
end;
pisze z pamięci więc najpierw spravdź