Kak svernut programku pri pervom ejo zapuske???

← →
про (2005-01-14 16:06) [0]

Mastera, podskazhite pozhalujsta. U menja proga zapuskaetsja, to est" viskakivaet, pri windows startup, i etim o4en" meshaet =(( kazhdij raz ejo viklju4at"... tirim ..pirim .. vobshem meshaet =( Nepodskazhite, kak sdelat" 4tob ona vklju4alas" pri starup, i srazu zhe svora4ivalas"?? Posle togo kak ja ejo viklju4aju ona svara4ivaetsja v traybar .. i mne nado sdelat" 4tob pri startup ona vklju4alas" i svara4ivalas" v tray bar..
o bozhe kak zaputanno zvu4it, nadejus" ktonibud" pojmet ideju =))
Zaranee blagodarju =))

← →
PVOzerski © (2005-01-14 16:15) [1]

Использовать проверку единственности запущенного экземпляра. Способы описаны много где в Интернете, только надо использовать именно те, что пригодны для Win32 - не через hprevinst, а через mutex"ы или хотя бы через имена классов окон, присутствующих в системе.

← →
Neznaika © (2005-01-14 17:18) [2]

А почему бы сразу ее не запускать в трей, а потом если юзеру надо, он ее развернет.?

← →
Neznaika © (2005-01-14 17:19) [3]

И еще у тебя что клава на русский не переключается??? Читать ужас как не удобно!!!

← →
KristinA © (2005-01-14 22:30) [4]

Zdrastvuj Neznajka, 4esno govorja ja tak i ho4u sdelat", no poka4to moi znanija Delpi nepozvoljajut etogo =((
U menja v FormCreate imeetsja takoj kod:
procedure TfReminder.FormCreate(Sender: TObject);
var
reg:TRegistry;
tray: TNotifyIconData;
Ic: TIcon;
begin
FHide:= true;
fReminder.DoubleBuffered:=true;
path:=ExtractFileDir(application.exename);
Ic := TIcon.Create;
Ic.LoadFromFile(path+"\Templates\AB.ico");
with tray do
begin
cbSize := SizeOf(TNotifyIconData);
Wnd := fReminder.Handle;
uID := 1;
uFlags := NIF_ICON or NIF_MESSAGE or NIF_TIP;
uCallBackMessage := WM_NOTIFYTRAYICON;
hIcon := Ic.Handle;
szTip := ("Ýòî íàøà èêîíêà");
end;
Shell_NotifyIcon(NIM_ADD, Addr(tray));
Ic.Destroy;
end;

mozhno li ego otkorektirivat" tak 4tob programka zapuskalas" v tray"e?? Esli kto mozhet mne s etim pomo4 budu o4en" blagodarna =))
A nas4et klavi, ja na russkom o4en" medlenno pe4ataju.. ja ne iz Rossii, i u4us" ne na russkom =( poetomu imeju nekotorie problemi s russkim =(( nadobudet zanjatsja im, ato dazhe neudobno za oshibki, kotorih u menja navernoe tu4a =)

← →
Юрий Зотов © (2005-01-14 22:55) [5]

http://www.delphikingdom.com/asp/viewitem.asp?catalogid=903

Там и про трей найдете, и про повторный запуск, и еще кое-что.

← →
KristinA © (2005-01-15 14:56) [6]

eh....mastera pomogite pozhalujsta, nikak nemogu razobratsja s tray"em =(( nado pri pervom zapuske programki, ejo svernut"

Ну если надо просто свернуть то в инспекторе у формы есть свойство WindowState если я не ошибаюсь, оно позволяет запустить в свернутом виде. ;)

пропиши в реестр чтобы прога запустилась !!!!
а опосля в самой проге свернешь в трей - это не сложно и
не надо больше запускать !!!

razobralas" =)))
vot etot kod:
Application.CreateHandle;
ShowWindow(Application.Handle, SW_HIDE);
Application.ShowMainForm := FALSE;

! spasibo vsem kto pitalsja pompo4 =)))))) !

Kak svernut programku pri pervom ejo zapuske??? Найти похожие ветки