Nie pokazuj w przyszłości

0

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. :-(

0

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.

0

A moze mi ktos sypnie jakimś kodem? 8-0

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ź

1 użytkowników online, w tym zalogowanych: 0, gości: 1