RusFAQ.ru: Программирование на Delphi

/ КОМПЬЮТЕРЫ И ПО / Языки программирования / Delphi

Выпуск № 380
от 09.02.2006, 05:24

Вопрос № 34.662

Подскажите пожайлуста. Вообщето я работаю на Buildere, но впринцепе все очень похоже. Как сделать чтобы программа сварачивалась в системный трей, рядом с часами, при этом не отображалась как свернутое окно. Заранее всем спасибо.

Отправлен: 03.02.2006, 11:27 Вопрос задал: AllexZ (статус: Посетитель) Всего ответов: 5 Мини-форум вопроса >>> (сообщений: 1)

Отвечает: Ерёмин Андрей Здравствуйте, AllexZ! Всем вашим требованиям отвечает компонент CoolTrayIcon. --------- Нет правила без исключений. Правило без исключений - исключение из правил.

Ответ отправил: Ерёмин Андрей (статус: Профессионал) Отправлен: 03.02.2006, 14:04 Оценка за ответ: 4 Комментарий оценки: Вопрос, как пользоваться данным компанентам? Подойдетли но для C++ Bulder? В архиве поврежден exe файл, есть зеркала на данный архив?

Отвечает: LanK Здравствуйте, AllexZ! Надеюсь иконку в трэй Вы поместить можете? А скрыть легче легкого: SHOWWINDOW(Application.Handle, SW_HIDE); __Main.Hide; Это для Delphi5 но API будет и в С работать... --------- Пусть все будет хорошо! Давайте жить дружно! :) И будет жить еще лучше!

Ответ отправил: LanK (статус: 6-ой класс) Отправлен: 03.02.2006, 14:55

Отвечает: Diman_A Здравствуйте, AllexZ! Проще всего скачать компонент TTrayicon - с ним можно сделать все, что нужно. Поищи его на www.torry.net. Но можно перехватить сообщение по сворачиванию окна и в этот момент скрыть прогу с панели задач и добавить в трей. Код смотри в приложении. (на форме popup menu с двумя строчками - показать и выход) Приложение: unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, Menus, ShellApi; const MYWM_NOTIFYICON = WM_USER + 100; MyIconID = 100; type TForm1 = class(TForm) PopupMenu1: TPopupMenu; ShowItem: TMenuItem; N1: TMenuItem; procedure FormDestroy(Sender: TObject); procedure showitemClick(Sender: TObject); procedure N1Click(Sender: TObject); private { Private declarations } public procedure MYWMNOTIFYICON(var Message: TMessage); message MYWM_NOTIFYICON; protected procedure WMGetSysCommand(var message : TMessage); message WM_SYSCOMMAND; end; var Form1: TForm1; implementation {$R *.dfm} FUNCTION MyTaskBarAddIcon(wnd: HWND; uID: integer; Icon: HICON; S: STRING): Boolean; VAR tnid: TNOTIFYICONDATA; BEGIN tnid.cbSize := SizeOf(TNOTIFYICONDATA); tnid.Wnd := wnd; tnid.uID := uID; tnid.uFlags := NIF_MESSAGE OR NIF_ICON OR NIF_TIP; tnid.uCallbackMessage := MYWM_NOTIFYICON; tnid.hIcon := Icon; Lstrcpyn(tnid.szTip, PChar(S), SizeOf(tnid.szTip)); Result := Shell_NotifyIcon(NIM_ADD, @tnid); END; FUNCTION MyTaskBarDeleteIcon(wnd: HWND; uID: integer): Boolean; VAR tnid: TNOTIFYICONDATA; BEGIN tnid.cbSize := SizeOf(TNOTIFYICONDATA); tnid.Wnd := wnd; tnid.uID := uID; Result := Shell_NotifyIcon(NIM_DELETE, @tnid); END; FUNCTION MyTaskBarModifyIcon(wnd: HWND; uID: integer; Icon: HICON; S: STRING): Boolean; VAR tnid: TNOTIFYICONDATA; BEGIN tnid.cbSize := SizeOf(TNOTIFYICONDATA); tnid.Wnd := wnd; tnid.uID := uID; tnid.uFlags := NIF_MESSAGE OR NIF_ICON OR NIF_TIP; tnid.uCallbackMessage := MYWM_NOTIFYICON; tnid.hIcon := Icon; Lstrcpyn(tnid.szTip, PChar(S), SizeOf(tnid.szTip)); Result := Shell_NotifyIcon(NIM_MODIFY, @tnid); END; PROCEDURE TForm1.MYWMNOTIFYICON(VAR Message: TMessage); VAR Cur: TPoint; BEGIN IF Message.WParam = MyIconID THEN CASE Message.LParam OF WM_RBUTTONDOWN: BEGIN GetCursorPos(Cur); PopupMenu1.Popup(Cur.X, Cur.Y); END; END; END; procedure TForm1.FormDestroy(Sender: TObject); begin MyTaskBarDeleteIcon(Handle, MyIconID); end; procedure TForm1.ShowItemClick(Sender: TObject); begin Visible := true; MyTaskBarDeleteIcon(Handle, MyIconID); end; procedure Tform1.WMGetSysCommand(var message : TMessage) ; begin if (message.wParam = SC_MINIMIZE) then begin MyTaskBarAddIcon(Handle, MyIconID, ExtractIcon(Handle,'icon.ico',0) , 'Example'); form1.Visible:=false; end else inherited; end; procedure TForm1.N1Click(Sender: TObject); begin close; end; end.

Ответ отправил: Diman_A (статус: 4-ый класс) Отправлен: 03.02.2006, 16:52

Отвечает: Татьяна Здравствуйте, AllexZ! Посмотрите здесь http://erased.info/articles/programming/3343.html Как по мне, все предельно понятно --------- Нет ничего невозможного!!!

Ответ отправила: Татьяна (статус: Студент) Отправлен: 03.02.2006, 18:58 Оценка за ответ: 5 Комментарий оценки: Большое спасибо.

Отвечает: Меркулов Алексей Здравствуйте, AllexZ! Cкачайте компонент TrayIcon или расшренную версию CoolTrayIcon в приложении модуль к сожалению у меня только на Дельфи Приложение: unit shellUnit; interface uses Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, Menus; const WM_MYICONNOTIFY = WM_USER + 123; type TForm1 = class(TForm) PopupMenu1: TPopupMenu; RestoreItem: TMenuItem; N1: TMenuItem; FileExitItem1: TMenuItem; HideItem: TMenuItem; procedure FormCreate(Sender: TObject); procedure FormDestroy(Sender: TObject); procedure RestoreItemClick(Sender: TObject); procedure HideItemClick(Sender: TObject); procedure FileExitItem1Click(Sender: TObject); private { Private declarations } ShownOnce: Boolean; public { Public declarations } procedure WMICON(var msg: TMessage); message WM_MYICONNOTIFY; procedure WMSYSCOMMAND(var msg: TMessage);message WM_SYSCOMMAND; procedure RestoreMainForm; procedure HideMainForm; procedure CreateTrayIcon(n:Integer); procedure DeleteTrayIcon(n:Integer); end; var Form1: TForm1; implementation {$R *.DFM} uses ComObj, activex, ShellApi, shlobj, registry; procedure TForm1.WMICON(var msg: TMessage); var P : TPoint; begin case msg.LParam of WM_LBUTTONDOWN: begin GetCursorPos(p); SetForegroundWindow(Application.MainForm.Handle); PopupMenu1.Popup(P.X, P.Y); end; WM_LBUTTONDBLCLK : RestoreItemClick(Self); end; end; procedure TForm1.WMSYSCOMMAND(var msg: TMessage); begin inherited; if (Msg.wParam=SC_MINIMIZE) then HideItemClick(Self); end; procedure TForm1.HideMainForm; begin Application.ShowMainForm := False; ShowWindow(Application.Handle, SW_HIDE); ShowWindow(Application.MainForm.Handle, SW_HIDE); end; procedure TForm1.RestoreMainForm; var i,j : Integer; begin Application.ShowMainForm := True; ShowWindow(Application.Handle, SW_RESTORE); ShowWindow(Application.MainForm.Handle, SW_RESTORE); if not ShownOnce then begin for I := 0 to Application.MainForm.ComponentCount -1 do if Application.MainForm.Components[I] is TWinControl then with Application.MainForm.Components[I] as TWinControl do if Visible then begin ShowWindow(Handle, SW_SHOWDEFAULT); for J := 0 to ComponentCount -1 do if Components[J] is TWinControl then ShowWindow((Components[J] as TWinControl).Handle, SW_SHOWDEFAULT); end; ShownOnce := True; end; end; procedure TForm1.CreateTrayIcon(n:Integer); var nidata : TNotifyIconData; begin with nidata do begin cbSize := SizeOf(TNotifyIconData); Wnd := Self.Handle; uID := 1; uFlags := NIF_ICON or NIF_MESSAGE or NIF_TIP; uCallBackMessage := WM_MYICONNOTIFY; hIcon := Application.Icon.Handle; StrPCopy(szTip,Application.Title); end; Shell_NotifyIcon(NIM_ADD, @nidata); end; procedure TForm1.DeleteTrayIcon(n:Integer); var nidata : TNotifyIconData; begin with nidata do begin cbSize := SizeOf(TNotifyIconData); Wnd := Self.Handle; uID := 1; end; Shell_NotifyIcon(NIM_DELETE, @nidata); end; procedure TForm1.FormCreate(Sender: TObject); begin ShownOnce:= False; CreateTrayIcon(1); HideItem.Enabled := False; end; procedure TForm1.FormDestroy(Sender: TObject); begin DeleteTrayIcon(1); end; procedure TForm1.RestoreItemClick(Sender: TObject); begin RestoreMainForm; DeleteTrayIcon(1); RestoreItem.Enabled := False; HideItem.Enabled := True; end; procedure TForm1.HideItemClick(Sender: TObject); begin HideMainForm; CreateTrayIcon(1); HideItem.Enabled := False; RestoreItem.Enabled := True; end; procedure TForm1.FileExitItem1Click(Sender: TObject); begin Close; end; end.

Ответ отправил: Меркулов Алексей (статус: 3-ий класс) Отправлен: 03.02.2006, 22:45

Вопрос № 34.671

Уважаемые эксперты. Кто знает как определить, есть ли файл на сайте. Смысл такой - хочу сам закачать какой-то файлец из инета. Если он есть, то нет проблем. А если его нет? как можно определить это? Если открывать его через winapi то все равно возвращается, что вроде он есть, но его длина равна длине ошибочной страницы и его содержание соответствующее.

Отправлен: 03.02.2006, 14:42 Вопрос задал: Dr.Alex (статус: 9-ый класс) Всего ответов: 2 Мини-форум вопроса >>> (сообщений: 1)

Отвечает: Ерёмин Андрей Здравствуйте, Dr.Alex! Вот, нашёл функцию, которая возвращает True, если URL существует и False в противном случае. Скачать файл, как я понял, у вас получается. Приложение: uses wininet; function CheckUrl(url: string): boolean; var hSession, hfile, hRequest: hInternet; dwindex, dwcodelen: dword; dwcode: array[1..20] of char; res: pchar; begin if pos('http://', lowercase(url)) = 0 then url := 'http://' + url; Result := false; hSession := InternetOpen('InetURL:/1.0', INTERNET_OPEN_TYPE_PRECONFIG, nil, nil, 0); if assigned(hsession) then begin hfile := InternetOpenUrl( hsession, pchar(url), nil, 0, INTERNET_FLAG_RELOAD, 0); dwIndex := 0; dwCodeLen := 10; HttpQueryInfo(hfile, HTTP_QUERY_STATUS_CODE, @dwcode, dwcodeLen, dwIndex); res := pchar(@dwcode); result := (res = '200') or (res = '302'); if assigned(hfile) then InternetCloseHandle(hfile); InternetCloseHandle(hsession); end; end; --------- Нет правила без исключений. Правило без исключений - исключение из правил.

Ответ отправил: Ерёмин Андрей (статус: Профессионал) Отправлен: 03.02.2006, 16:33 Оценка за ответ: 4 Комментарий оценки: спасибо за желание, но что интересно на несуществующий файл эта функция реагирует так же, как и на существующий :(

Отвечает: Татьяна Здравствуйте, Dr.Alex! Для этого если файла нет, как вариант, в теле содержимого можно искать характерные данные, находящиеся на странице, если такого файла нет, например 'not found' или 'error 404'. Вообще говоря, может еще учитываться и тип файла, например, если производится закачка zip-файла можно проверять например так "if (Length(socket.Body) > 20) and (socket.Body[1] = 'P') and (socket.Body[2] = 'K') then ...//все хорошо" Конечно, возможно есть и другие спрособы, но обычно лично мне этого хватало Желаю удачи --------- Нет ничего невозможного!!!

Ответ отправила: Татьяна (статус: Студент) Отправлен: 03.02.2006, 18:51

Вопрос № 34.696

Здравствуйте уважаемые эксперты. Я использую компонент CaptionButton который добавляет кнопку в заголовок но если меняется FormStyle она исчезает. Существуют ли другие компоненты?

Отправлен: 03.02.2006, 23:22 Вопрос задал: Меркулов Алексей (статус: 3-ий класс) Всего ответов: 1 Мини-форум вопроса >>> (сообщений: 1)

Отвечает: Татьяна Здравствуйте, Меркулов Алексей! Честно говоря не использовала этот компонент, но с проблемой рисования кнопки столкнулась, нашла, как по мне, неплохую статью http://delfaq.wallst.ru/cgi-bin/site_mngr/show.pl?89 Не понимаю, правда почему исчезает при изменении именно FormStyle, возможно вы имели ввиду BorderStyle? Так к примеру, если вам нужно нарисовать кнопку в окне стиля bsSizeToolWin, необходимо использовать вместо Cx := GetSystemMetrics(SM_CXSIZE); Cy := GetSystemMetrics(SM_CYSIZE); вот так Cx := GetSystemMetrics(SM_CXSMSIZE); Cy := GetSystemMetrics(SM_CYSMSIZE); Хотя если есть другой способ, скажу честно, самой интересно и актуально --------- Нет ничего невозможного!!!

Ответ отправила: Татьяна (статус: Студент) Отправлен: 05.02.2006, 17:39

© 2001-2006, Портал RusFAQ.ru, Россия, Москва. Идея, дизайн, программирование: Калашников О.А. Email: adm@rusfaq.ru, Тел.: +7 (926) 535-23-31 Авторские права | Реклама на портале Версия системы: 4.13 от 07.02.2006

---

Subscribe.Ru Поддержка подписчиков Другие рассылки этой тематики Другие рассылки этого автора

Подписан адрес: Код этой рассылки: comp.soft.prog.delphiplus Архив рассылки

Отписаться Вебом Почтой Вспомнить пароль

---

В избранное