Отправляет email-рассылки с помощью сервиса Sendsay

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

Подписаться Бесплатная «Золотая» новостная рассылка . Подписчиков 3.304 RSS
←   Январь 2006   →
 1
 2
 3
 4
 5
 6
 7
 8
 9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31


За последние 60 дней ни разу не выходила


Сайт рассылки: http://rusfaq.ru/
Открыта: 14-03-2002

Автор
Калашников О.А.

Статистика

3.304 подписчиков
-1 за неделю
←   Все выпуски   →

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


Информационный Канал Subscribe.Ru
РАССЫЛКИ ПОРТАЛА RUSFAQ.RU

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

Выпуск № 365
от 25.01.2006, 02:24

Администратор:Калашников О.А.
В рассылке:Подписчиков: 243, Экспертов: 62
В номере:Вопросов: 4, Ответов: 14

Вопрос № 33591: У меня вопрос такого характера. Мне надо в проге реализовать архивирование файлов, т.е. у меня есть определенные файлы, имя и путь их постоянно меняется, поэтому я не могу использовать обыкновенные Buckup. Как это можно реализовать по лучше? Ко...
Вопрос № 33613: Здравствуйте. Как получить список всех окон и их параметры...
Вопрос № 33625: Здравствуйте, уважаемые эксперты! Как можно изменить раскладку клавиатуры для RichEdit нажатием кнопки на форме? Спасибо....
Вопрос № 33638: Здравствуйте, уважаемые эксперты! Как показать подсказку при наведении на пункт меню (MainMenu) в StatusBar'e и в label'e?...

Вопрос № 33.591
У меня вопрос такого характера.
Мне надо в проге реализовать архивирование файлов, т.е. у меня есть определенные файлы, имя и путь их постоянно меняется, поэтому я не могу использовать обыкновенные Buckup. Как это можно реализовать по лучше? Конечно я написал мини-приложение и осуществил этот способ таким образом:
WinExec('c:\program filse\winrar\rar.exe a filename1, filename2, filename3', SW_HIDE); Конечно в таком варианте работает классно, тем более что мультимедийно, но у меня получается нет контроля за этим процессом. Я не знаю: когда он закончился, с каким ошибками и закончился ли он вообще. Тем более надо реализовать компоненту ProgressBar. Вот так вот, помогите тем, чем можете.
Отправлен: 19.01.2006, 10:09
Вопрос задал: Karanskiy Arkadiy (статус: Посетитель)
Всего ответов: 2
Мини-форум вопроса >>> (сообщений: 1)
Отвечает: Лучников Юрий Владимирович
Здравствуйте, Karanskiy Arkadiy!
Советую воспользоваться компонентом на подобие ZipForge.
Кучу подобных можно найти на torry.net.
Тут вам и контроль за процессом архивирования, и ПрогрессБар и отпадает обязательное наличие стороннего архиватора...

Успехов!
Ответ отправил: Лучников Юрий Владимирович (статус: 10-ый класс)
Отправлен: 19.01.2006, 13:26
Отвечает: Denisss

Здравствуйте, Karanskiy Arkadiy!

Приблизительный вариант решения Вашей задачи см. в приложении.
Но рекомендую учесть тот факт, что формат RAR является платным. Уточню: распаковка бесплатная, упаковка - денег стоит.

Приложение:

Ответ отправил: Denisss (статус: Специалист)
Отправлен: 20.01.2006, 11:16
Оценка за ответ: 5
Комментарий оценки:
Thanks

Вопрос № 33.613
Здравствуйте.
Как получить список всех окон и их параметры
Отправлен: 19.01.2006, 16:44
Вопрос задал: Сибирцев Олег (статус: Посетитель)
Всего ответов: 4
Мини-форум вопроса >>> (сообщений: 0)
Отвечает: n/a
Здравствуйте, Сибирцев Олег!
RTFM MSDN

Получение окон:
BOOL EnumWindows(WNDENUMPROC lpEnumFunc, LPARAM lParam );
BOOL EnumChildWindows(HWND hWndParent, WNDENUMPROC lpEnumFunc, LPARAM lParam);
BOOL CALLBACK EnumWindowsProc(HWND hwnd, LPARAM lParam);

Получение информации об окне
BOOL GetWindowInfo(HWND hwnd, PWINDOWINFO pwi);

Ответ отправил: n/a (статус: 2-ой класс)
Отправлен: 19.01.2006, 17:11
Отвечает: Dushin Igor
Здравствуйте, Сибирцев Олег!
Вот тут подробная информация:
http://www.delphiworld.narod.ru/base/other_windows.html
Или смотри приложение.

Приложение:

---------
Храни меня Господь, в сухом прохладном месте! =)

Ответ отправил: Dushin Igor (статус: 3-ий класс)
Отправлен: 19.01.2006, 17:33
Отвечает: Меркулов Алексей
Здравствуйте, Сибирцев Олег! вот небольшой пример

Приложение:

Ответ отправил: Меркулов Алексей (статус: 3-ий класс)
Отправлен: 19.01.2006, 22:26
Отвечает: One
Здравствуйте, Сибирцев Олег!
По твоему вопросу есть неплохой пример в книге М. Фленова "Программирование в Delphi глазами хакера", статья 3.4. Работа с чужими окнами, стр. 84-89. Её мона в Инете найти (и качнуть).
---------
Компьютер должен работать, а человек - DOOMать.
Ответ отправил: One (статус: 2-ой класс)
Отправлен: 19.01.2006, 22:38

Вопрос № 33.625
Здравствуйте, уважаемые эксперты!
Как можно изменить раскладку клавиатуры для RichEdit нажатием кнопки на форме?
Спасибо.
Отправлен: 19.01.2006, 19:50
Вопрос задал: Граур Василий Олегович (статус: 1-ый класс)
Всего ответов: 3
Мини-форум вопроса >>> (сообщений: 0)
Отвечает: romodos
Здравствуйте, Граур Василий Олегович!
Сделать раскладку русской
ActivateKeyboardLayout(LoadKeyboardLayout('00000419', 0), 0)
Сделать раскладку английской
ActivateKeyboardLayout(LoadKeyboardLayout('00000409', 0), 0);

В приложении пример использования

Приложение:

---------
FAQ me off!

Ответ отправил: romodos (статус: Практикант)
Отправлен: 19.01.2006, 20:03
Отвечает: One
Здравствуйте, Граур Василий Олегович!
procedure SetRU;
var
Layout: array[0.. KL_NAMELENGTH] of char;
begin
LoadKeyboardLayout( StrCopy(Layout,'00000419'),KLF_ACTIVATE);
end;

procedure SetEN;
var
Layout: array[0.. KL_NAMELENGTH] of char;
begin
LoadKeyboardLayout(StrCopy(Layout,'00000409'),KLF_ACTIVATE);
end;

{--------------------------------------------------------------------
Пример использования:}
procedure TForm1.Button1Click(Sender: TObject);
begin
SetRU;
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
SetEN
end;
---------
Компьютер должен работать, а человек - DOOMать.
Ответ отправил: One (статус: 2-ой класс)
Отправлен: 19.01.2006, 21:38
Отвечает: Меркулов Алексей
Здравствуйте, Граур Василий Олегович! Подробная информация на эту тему есть на сайте DelphiWorld.narod.ru

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

Вопрос № 33.638
Здравствуйте, уважаемые эксперты!
Как показать подсказку при наведении на пункт меню (MainMenu) в StatusBar'e и в label'e?
Отправлен: 19.01.2006, 21:37
Вопрос задал: 007Makc (статус: Посетитель)
Всего ответов: 5
Мини-форум вопроса >>> (сообщений: 0)
Отвечает: Архангельский Андрей Германович
Здравствуйте, 007Makc!

Открой дезайнер меню, выбери соответствующий пункт и установи для него Hint.
Не забудь установить свойство ShowHint = true

А в StatusBar он показывается автоматически
Ответ отправил: Архангельский Андрей Германович (статус: Студент)
Отправлен: 19.01.2006, 21:52
Отвечает: Slava
Здравствуйте, 007Makc!
Для того, что бы statusbar показывал подсказку автоматически, свойство AutoHint для statusbar должно быть true.
Ответ отправил: Slava (статус: 8-ой класс)
Отправлен: 19.01.2006, 22:35
Отвечает: Меркулов Алексей
Здравствуйте, 007Makc! StatusBar1.AutoHint:=True;
В событие OnMouseMove
Label1.Caption:=<Имя меню>Hint
Ответ отправил: Меркулов Алексей (статус: 3-ий класс)
Отправлен: 19.01.2006, 22:38
Отвечает: sir henry
Здравствуйте, 007Makc!
Поставьте ShowHint в True, чтобы подсказки выводились в принципе, а в свойстве Hint напишите саму подсказку.
Ответ отправил: sir henry (статус: Академик)
Отправлен: 20.01.2006, 05:55
Отвечает: Zubex
Здравствуйте, 007Makc!
Для меню надо выставить ShowHint:=True;

procedure Form1.FormCreate(Sender:TObject);
begin
Application.OnHint:=DisplayHint;
end;

procedure TCustOrdersForm.DisplayHint(Sender:TObject);
begin
StatusBar1.Panels[0].Text:=Application.Hint;
Label1.Caption:=Application.Hint;
end;

---------
Если не знаешь что сказать - лучше промолчи...
Ответ отправил: Zubex (статус: 5-ый класс)
Отправлен: 20.01.2006, 10:51
Оценка за ответ: 5

Отправить вопрос экспертам этой рассылки

Приложение (если необходимо):

* Код программы, выдержки из закона и т.п. дополнение к вопросу.
Эта информация будет отображена в аналогичном окне как есть.

Обратите внимание!
Вопрос будет отправлен всем экспертам данной рассылки!
Для того, чтобы отправить вопрос выбранным экспертам этой рассылки или
экспертам другой рассылки портала RusFAQ.ru, зайдите непосредственно на RusFAQ.ru.


Форма НЕ работает в почтовых программах The BAT! и MS Outlook (кроме версии 2003+)!
Чтобы отправить вопрос, откройте это письмо в браузере или зайдите на сайт RusFAQ.ru.

© 2001-2006, Портал RusFAQ.ru, Россия, Москва.
Идея, дизайн, программирование: Калашников О.А.
Email: adm@rusfaq.ru, Тел.: +7 (926) 535-23-31
Авторские права | Реклама на портале 		Яндекс Rambler's Top100
Subscribe.Ru
Поддержка подписчиков
Другие рассылки этой тематики
Другие рассылки этого автора		 Подписан адрес:
Код этой рассылки: comp.soft.prog.delphiplus
Архив рассылки		 Отписаться Вебом Почтой
Вспомнить пароль
В избранное