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

RFpro.ru: Консультации по функциям WinAPI

Подписаться Бесплатная «Золотая» новостная рассылка . Подписчиков 1.952 RSS
←   Июнь 2007   →
 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


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


Сайт рассылки: http://rusfaq.ru
Открыта: 02-07-2003

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

Статистика

1.952 подписчиков
0 за неделю
←   Все выпуски   →

RusFAQ.ru: Win API


РАССЫЛКИ ПОРТАЛА RUSFAQ.RU

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

Выпуск № 437
от 22.06.2007, 20:35

Администратор:Калашников О.А.
В рассылке:Подписчиков: 410, Экспертов: 44
В номере:Вопросов: 1, Ответов: 1

Вопрос № 91789: Как отобразить/скрыть системные и скрытые файлы в win explorer?...

Вопрос № 91.789
Как отобразить/скрыть системные и скрытые файлы в win explorer?
Отправлен: 17.06.2007, 18:35
Вопрос задал: Ctrl-Alt-De1 (статус: Посетитель)
Всего ответов: 1
Мини-форум вопроса >>> (сообщений: 8)
Отвечает: Gh0stik
Здравствуйте, Ctrl-Alt-De1!

Вот часть программы которая реализует соответствующие действия.

procedure TForm1.RadioGroup1Click(Sender: TObject);
var reg:tregistry;
begin
Reg:=TRegistry.Create;
with reg do
begin
RootKey:=HKEY_CURRENT_USER;
openkey('SoftwareMicrosoftWindowsCurrentVersionExplorerAdvanced',false);
case RadioGroup1.ItemIndex of
0: begin
//скрыть
WriteInteger('Hidden',2);
WriteInteger('Showsuperhidden',0);
end;
1: begin
//показать
WriteInteger('Hidden',1);
WriteInteger('Showsuperhidden',1);
end;
end;
CloseKey;
Free;
end;
{непосредственно отправляем сообщение системе - проверено на WinXP SP1} SendMessage(HWND_BROADCAST,WM_WININICHANGE,0,Integer(PChar('Environment')));
end;

Также прилагаю файл с полным кодом программы.

Good Luck!!!

Прикреплённый файл: Загрузить >>
Срок хранения файла на сервере RusFAQ.ru составляет 30 суток с момента отправки ответа.
---------
Господь Бог - это всего лишь сверхмощный генератор случайных чисел, в соответствии с которыми сочетаются события на Земле. Генератор случайных чисел - и только.

Ответ отправил: Gh0stik (статус: Профессор)
Украина, Славянск
Организация: Славянский государственный педагогический университет (Кафедра алгебры)
ICQ: 289363162
----
Ответ отправлен: 19.06.2007, 00:36
Оценка за ответ: 5
Комментарий оценки:
Спасибо, все оказалось несколько проще, чем я думал.

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

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

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

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


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

© 2001-2007, Портал RusFAQ.ru, Россия, Москва.
Авторское право: ООО "Мастер-Эксперт Про"
Email: support@rusfaq.ru, тел.: +7 (926) 535-23-31
Хостинг: "Московский хостер"
Поддержка: "Московский дизайнер"
Авторские права | Реклама на портале
Версия системы: 4.52 от 02.05.2007 		Яндекс Rambler's Top100
RusFAQ.ru | MosHoster.ru | MosDesigner.ru | RusIRC.ru
Kalashnikoff.ru | RadioLeader.ru | RusFUCK.ru
В избранное