| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

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

Открыть файл в Notepad ReadOnly [D5, D7, Win2k, WinXP]

Гость с юга ©   (2004-05-30 15:44:00) 

Как открыть файл в Notepad ReadOnly
без замены атрибутов файла

---

гость с юга   (2004-05-31 18:11:00) [1]

ну что же, тогда отвечу сам себе
======
var
 wnd : HWND;
begin
 WinExec('Notepad.exe C:\Windows\ODBC.ini', SW_SHOW);
 wnd := FindWindowEx(FindWindow('Notepad',nil),0 , 'Edit', nil);
 if wnd = 0 then Exit;
 SendMessage(wnd, EM_SETREADONLY, Ord(True), 0);
end;
=====

---

N170   (2004-05-31 00:25:00) [2]

Назначить файлу атрибут r/o и открыть его Notepad'om

---

Наверх