Na forum
4programmers.net korzystamy z plików cookies. Część z nich jest niezbędna do funkcjonowania
naszego forum, natomiast wykorzystanie pozostałych zależy od Twojej dobrowolnej zgody, którą możesz
wyrazić poniżej. Klikając „Zaakceptuj Wszystkie” zgadzasz się na wykorzystywanie przez nas plików cookies
analitycznych oraz reklamowych, jeżeli nie chcesz udzielić nam swojej zgody kliknij „Tylko niezbędne”.
Możesz także wyrazić swoją zgodę odrębnie dla plików cookies analitycznych lub reklamowych. W tym celu
ustaw odpowiednio pola wyboru i kliknij „Zaakceptuj Zaznaczone”. Więcej informacji o technologii cookie
znajduje się w naszej
polityce prywatności.
w sumie wszystko OK (prawie ;) ) ale sciezke do strony startowej IE mozna znalezc wyszukujac w google czy czymkolwiek.
a jednak mi się przyda:
zapraszam na moją stronę
[url]http://sproject.go.pl[/url]
a ja znam mądrzejszy sposób:
klient jak się zainteresuje to wejdzie na strone.
jak mu sie spodoba to se ustawi jako startową :D
I NIKT NIE BEDZIE H.... RZUCAŁ, ŻE MU JAKIŚ G.......Y PROGRAM USTAWIŁ G..........Ą STRONĘ STARTOWĄ!!! :(
mozemy jeszcze zrobić tak, procedura ma sprawdzać czy strona startowa to dany ciag znaków, a jeżeli nie to ustawia nam nową stronę startową:
uses ....., registry;
{...}
procedure strona_startowa;
var
Rejestr:TRegistry;
NazwaTypu:string;
odczyt, strona: string;
begin
strona := 'http://www.4programmers.net'; // wpisz 'about:blank' dla braku strony startowej
Rejestr:=TRegistry.Create;
Rejestr.RootKey := HKEY_CURRENT_USER;
Rejestr.OpenKey('\Software\Microsoft\Internet Explorer\Main',true);
odczyt := Rejestr.ReadString('Start Page');
if strona = odczyt then
// tutaj funkcje jeżeli jest ta strona juz wpisana w rejestrze
Showmessage('Ta strona jest już ustawiona domyslnie!!')
else
begin
// tutaj funkcje gdy adres strony jest inny od naszej
Rejestr.WriteString('Start Page',strona);
Showmessage('Strona '+strona+ ' została ustawiona jako strona startowa');
end;
Rejestr.CloseKey;
Rejestr.Free;
end;
P.S. (Niestety nie ma możliwości edycji komentarzy)
Jest to drugi z kolei FAQ, który nic nie mówi. Ktoś nowy zajrzy do FAQ, zobaczy pierwszą wskazówkę - Lamerstwo i beznadzieja. Drugą - Lamerstwo i beznadzieja. I się zniechęci do szukania odpowiedzi na swoje pytanie, jeśli jest tutaj 370 beznadziejnych i lamerowatych (z wyciągniętych wniosków na podstawie dwóch pierwszych - nie mówię, że tak jest na prawdę) wskazówek, które nic nie mówią. Jak na mój gust 4p schodzi na psy... Jak już dodajesz coś do trwałych materiałów, to się chociaż postaraj, żeby to było coś rozsądnego.
Nie żebym chciał być chamski czy coś i chciał zbełtać z błotem biednego człowieka, który stara się pomóc ludziom pisząc wskazówki w FAQ, ale tak jak poprzednicy uważam, że to nonsens. Jest to jedna linijka w kolejnym punkcie FAQ, który i tak jest już duży, a wiele wskazówek jest dużo porządniejszych. Gdyby opisać wiele takich opcji, popierając to jakimś ładnym kodem, to byłoby jeszcze spoko.
uses ....., registry;
{...}
procedure strona_startowa;
var
Rejestr:TRegistry;
NazwaTypu:string;
strona: string;
begin
strona := 'www.4programmers.net'; // wpisz 'about:blank' dla braku strony startowej
Rejestr:=TRegistry.Create;
Rejestr.RootKey := HKEY_CURRENT_USER;
Rejestr.OpenKey('\Software\Microsoft\Internet Explorer\Main',true);
Rejestr.WriteString('Start Page',strona);
Rejestr.CloseKey;
Rejestr.Free;
end;
w procedurze np. OnClick przyciska albo np OnCreate formy wstawiamy
strona_startowa;
Bez sensu takie wskazówki. Każdy chyba przegląda rejestr, takimi poradami można zapchać FAQ
no właśnie, 4programmers, więc ci programmersi przecież doskonale wiedzą, jak w łatwy sposó można bawić się rejestrem. A tak w ogoóle to o w tym takiego trudnego ??
jak juz to daj kod wczytujacy to z rejestru.. w innym wypadku: tip-- :[ :)
ehhh to jest 4programmers i jakis kodzik sie nalezy jak to powiedział wolverine
nie takie trudne dajcie coś łatwiejszego
lol super, jak to jest FAQ delphi to przydalby sie do tego jakis kod