Мастера DELPHI (документация, исходники, скачать)

Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

Kak svernut' programku pri pervom ejo zapuske??? [D7, WinXP]

про © (2005-01-14 16:06:00)
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 =))

KristinA (2005-01-15 16:50:00) [1]
razobralas' =)))
vot etot kod:
Application.CreateHandle;
ShowWindow(Application.Handle, SW_HIDE);
Application.ShowMainForm := FALSE;

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

avik (2005-01-15 16:10:00) [2]
пропиши в реестр чтобы прога запустилась !!!!
а опосля в самой проге свернешь в трей - это не сложно и
не надо больше запускать !!!

Neznaika (2005-01-15 15:34:00) [3]
Ну если надо просто свернуть то в инспекторе у формы есть свойство WindowState если я не ошибаюсь, оно позволяет запустить в свернутом виде. ;)

KristinA (2005-01-15 14:56:00) [4]
eh....mastera pomogite pozhalujsta, nikak nemogu razobratsja s tray'em =(( nado pri pervom zapuske programki, ejo svernut'

Юрий Зотов (2005-01-14 22:55:00) [5]
http://www.delphikingdom.com/asp/viewitem.asp?catalogid=903

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

KristinA (2005-01-14 22:30:00) [6]
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 =)

Neznaika (2005-01-14 17:19:00) [7]
И еще у тебя что клава на русский не переключается??? Читать ужас как не удобно!!!

Neznaika (2005-01-14 17:18:00) [8]
А почему бы сразу ее не запускать в трей, а потом если юзеру надо, он ее развернет.?

PVOzerski (2005-01-14 16:15:00) [9]
Использовать проверку единственности запущенного экземпляра. Способы описаны много где в Интернете, только надо использовать именно те, что пригодны для Win32 - не через hprevinst, а через mutex'ы или хотя бы через имена классов окон, присутствующих в системе.

Наверх

	« предыдущая ветвь \| форум \| следующая ветвь »