Alextp

|
Posted: Sat Oct 06, 2007 14:25 Post subject: |
|
|
Запуск редактора - простой ShellExecute
Code: | //-------------------------------------------------
procedure RunEditor(const fn: string);
begin
ShellExecute(Application.Handle, 'open', PChar(tcEditor),
PChar(fn), PChar(ExtractFileDir(fn)), SW_SHOWNORMAL);
end; |
|
|