Открыть файл в 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;
=====

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