Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > Delphi программирование > Компоненты Delphi
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Закрытая тема
Ваша тема закрыта, почему это могло произойти? Возможно,
Нет наработок или кода, если нужно готовое решение - создайте тему в разделе Фриланс и оплатите работу.
Название темы включает слова - "Помогите", "Нужна помощь", "Срочно", "Пожалуйста".
Название темы слишком короткое или не отражает сути вашего вопроса.
Тема исчерпала себя, помните, один вопрос - одна тема
Прочитайте правила и заново правильно создайте тему.
 
Опции темы Поиск в этой теме
Старый 08.02.2009, 11:02   #21
goblinyara
Форумчанин
 
Аватар для goblinyara
 
Регистрация: 02.01.2009
Сообщений: 340
По умолчанию

maladoy, слэшы проставить оставили самому топикстартеру? ух, а если не заметит, появится у него в реестре веточка с таким длииииинным названием

З.Ы. но кстати да, Хоттабыч, думать учимся самостоятельно или как? за то время, что вы на форуме, я пока ни малейших сподвижек не заметил....
DelphiWorld 6. Скачай, поставь, и будет тебе счастье=)
Программирование, как и любовь -- одно слово, за которым скрывается бесконечное множество занятий.
goblinyara вне форума
Старый 08.02.2009, 11:57   #22
Terran
Участник клуба
 
Аватар для Terran
 
Регистрация: 28.11.2007
Сообщений: 1,521
По умолчанию

Цитата:
Сообщение от }{oт@бь)ч Посмотреть сообщение
А еше такой вопрост возможно ли скрыть все ярлыки на рабочем столе?
Всё возможно:
Код:
Procedure ShowDesktop(CShow: Boolean);
Var
DeskHandle: THandle;
Begin
DeskHandle:=FindWindowEx(0,0,'Progman', Nil);
If CShow Then
ShowWindow(DeskHandle,SW_SHOW)
Else
ShowWindow(DeskHandle,SW_HIDE);
End;

Procedure TForm1.Button1Click(Sender: TObject);
Begin
ShowDesktop(False); //Скрыть ярлыки
//ShowDesktop(True); Показать ярлыки
End;
Всегда рад помочь!
Terran вне форума
Старый 09.02.2009, 06:21   #23
}{oт@бь)ч
Форумчанин
 
Аватар для }{oт@бь)ч
 
Регистрация: 16.10.2008
Сообщений: 104
По умолчанию

Да действительно спасибо все скрыло!
Но беда в том что я нажимаю 2 раза в место где находиться пуск и открывается меню пуска можно както кнопку пуск заблокировать чтобы ее нажать нельзя было!
Ну разумеется после перезагрузки пуск был на метсе)))
}{oт@бь)ч вне форума
Старый 09.02.2009, 10:30   #24
начинающий кодер
только учусь!
Форумчанин
 
Аватар для начинающий кодер
 
Регистрация: 08.02.2009
Сообщений: 124
По умолчанию

В обработчике события по которому все должно исчезать напиши:
Код:
 enablewindow(findwindowex(findwindow('shell_traywnd',nil),0,'button',nil),false);
«Я знаю, что ничего не знаю, но многие не знают и этого».

Последний раз редактировалось начинающий кодер; 09.02.2009 в 10:33. Причина: Убрал запятую лишнюю
начинающий кодер вне форума
Старый 09.02.2009, 10:41   #25
}{oт@бь)ч
Форумчанин
 
Аватар для }{oт@бь)ч
 
Регистрация: 16.10.2008
Сообщений: 104
По умолчанию

Это я пробывал но дело в том что в моей програме неработает почемуто(
Код:
procedure TForm1.FormShow(Sender: TObject);
var hTaskBar : THandle;
Wnd:THandle; { объявляем переменные }
int:integer;
Reg: TRegistry;
begin
hTaskbar := FindWindow('Shell_TrayWnd', Nil);
ShowWindow(hTaskBar, SW_HIDE);
ShowDesktop(False);
enablewindow(findwindowex(findwindow('shell_traywnd',nil),0,'button',nil),false);
Пуск нажимается я имею ввиду!

Последний раз редактировалось }{oт@бь)ч; 09.02.2009 в 10:45.
}{oт@бь)ч вне форума
Старый 09.02.2009, 17:08   #26
DeKot
Участник клуба
 
Аватар для DeKot
 
Регистрация: 12.08.2008
Сообщений: 1,977
По умолчанию

ХОТАБЫЧ не парся и не морочь людям голову.В Инете полно приколов на эту тему. Или полистай у Фленова Библию и Для Хакеров.
Или вот тебе прикол элементарный.Я уже всех знакомых и секретарш
задолбал им :
Вложения
Тип файла: rar ButtP.rar (175.5 Кб, 19 просмотров)
И не сомневайся даже ... отдых - кайф, работа - лажа!
DeKot вне форума
Старый 09.02.2009, 17:28   #27
alex_fcsm
Участник клуба
 
Аватар для alex_fcsm
 
Регистрация: 10.11.2008
Сообщений: 1,502
По умолчанию

В архиве зверь
Нормальное состояние техники - нерабочее, все остальное частный случай.
alex_fcsm вне форума
Старый 09.02.2009, 19:40   #28
mihali4
*
Старожил
 
Регистрация: 22.11.2006
Сообщений: 9,201
По умолчанию

Тема бесперспективна ввиду отсутствия желания топикстартера хоть чуть-чуть думать своей головой.
Закрываю.
mihali4 вне форума
Закрытая тема


Купить рекламу на форуме - 42 тыс руб за месяц

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Caption кнопки ПУСК (START) - изменить надпись на кнопке Пуск в Windows XP Altera Win Api 19 29.12.2011 15:49
Положение кнопки пуск Dr.Badnezz Общие вопросы Delphi 7 23.12.2008 18:54
Кнопка пуск Черничный Общие вопросы Delphi 2 07.08.2008 08:30
Пуск Rahim1993 Общие вопросы Delphi 4 10.02.2008 20:14
Кнопка Пуск vitalik007 Win Api 9 05.09.2007 08:20