Текущий архив: 2004.07.11;
Скачать: CL | DM;

Вниз

Открыть файл в Notepad ReadOnly   Найти похожие ветки 

← →
Гость с юга   (2004-05-30 15:44) [0]

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

---

← →
N170   (2004-05-31 00:25) [1]

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

---

← →
гость с юга   (2004-05-31 18:11) [2]

ну что же, тогда отвечу сам себе
======
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;
=====

---

Страницы: 1 вся ветка

Текущий архив: 2004.07.11;
Скачать: CL | DM;

Наверх

Память: 0.46 MB
Время: 0.047 c