Открытие файла

[Lexakazanskij]

Как сделать, чтобы текстовый файл открывался программой, написанной на паскале(как блокнот)?

[Maslan]

"как блокнот" - как виндовский блокнот? на паскале никак. В Дельфи можно.

[Lexakazanskij]

Ладно, не как блокнот, а как сам паскаль. Когда: ПКМ\открыть с помощью\программа(созданная на паскале). Запускается эта прога и в ней открывается файл.

Сам паскаль так может!

[SuperVisor]

1. А у тебя сделан запуск паскалевской программы с параметрами? Если нет, то сначала следует осуществить это, а потом уже спрашивать..
2. Всегда в винде было ассоциирование расширений файла с приложениями, а по правой кнопке выдается список программ, которыми можно открывать данные типы файлов. Открываешь любой редактор реестра и мучаешься, мучаешься, мучаешься...

[Lexakazanskij]

ААААА... как сделать запуск с параметрами?

[Skiff]

var
s:string;
i:integer;
...
s:=paramStr(i), где i - номер параметра

[Maslan]

program Bloknot;
{$M 8192,8192,655360}
{$X+,S-}
uses Dos, Objects, Drivers, Memory, Views, Menus, Dialogs,
  StdDlg, MsgBox, App, Editors;

const
  HeapSize = 32 * (1024 div 16);

const
  cmCalculator = 101;
  cmShowClip   = 102;

type
  PEditorApp = ^TEditorApp;
  TEditorApp = object(TApplication)
    constructor Init;
    procedure HandleEvent(var Event: TEvent); virtual;
    procedure InitMenuBar; virtual;
    procedure InitStatusLine; virtual;
    procedure OutOfMemory; virtual;
  end;

var
  EditorApp: TEditorApp;
  ClipWindow: PEditWindow;

function OpenEditor(FileName: FNameStr; Visible: Boolean): PEditWindow;
var
  P: PWindow;
  R: TRect;
begin
  DeskTop^.GetExtent(R);
  P := New(PEditWindow, Init(R, FileName, wnNoNumber));
  if not Visible then P^.Hide;
  OpenEditor := PEditWindow(Application^.InsertWindow(P));
end;

constructor TEditorApp.Init;
var
  H: Word;
  R: TRect;
  S: String;
begin
  MaxHeapSize := HeapSize;
  inherited Init;
  DisableCommands([cmSave, cmSaveAs, cmCut, cmCopy, cmPaste, cmClear,
    cmUndo, cmFind, cmReplace, cmSearchAgain]);
  EditorDialog := StdEditorDialog;
  ClipWindow := OpenEditor('', False);
  if ClipWindow <> nil then
  begin
    Clipboard := ClipWindow^.Editor;
    Clipboard^.CanUndo := False;
  end;

  if ParamCount<>0
   then
      OpenEditor(ParamStr(1),True);
end;

procedure TEditorApp.HandleEvent(var Event: TEvent);

procedure FileOpen;
var
  FileName: FNameStr;
begin
  FileName := '*.*';
  if ExecuteDialog(New(PFileDialog, Init('*.*', 'Open file',
    '~N~ame', fdOpenButton, 100)), @FileName) <> cmCancel then
    OpenEditor(FileName, True);
end;

procedure FileNew;
begin
  OpenEditor('', True);
end;

procedure ChangeDir;
begin
  ExecuteDialog(New(PChDirDialog, Init(cdNormal, 0)), nil);
end;

procedure ShowClip;
begin
  ClipWindow^.Select;
  ClipWindow^.Show;
end;


begin
  inherited HandleEvent(Event);
  case Event.What of
    evCommand:
      case Event.Command of
        cmOpen: FileOpen;
        cmNew: FileNew;
        cmChangeDir: ChangeDir;
        cmShowClip: ShowClip;
      else
        Exit;
      end;
  else
    Exit;
  end;
  ClearEvent(Event);
end;

procedure TEditorApp.InitMenuBar;
var
  R: TRect;
begin
  GetExtent(R);
  R.B.Y := R.A.Y + 1;
  MenuBar := New(PMenuBar, Init(R, NewMenu(
    NewSubMenu('~F~ile', hcNoContext, NewMenu(
      StdFileMenuItems(
      nil)),
    NewSubMenu('~E~dit', hcNoContext, NewMenu(
      StdEditMenuItems(
      nil)),
    NewSubMenu('~S~earch', hcNoContext, NewMenu(
      NewItem('~F~ind...', '', kbNoKey, cmFind, hcNoContext,
      NewItem('~R~eplace...', '', kbNoKey, cmReplace, hcNoContext,
      NewItem('~S~earch again', '', kbNoKey, cmSearchAgain, hcNoContext,
      nil)))),
    NewSubMenu('~W~indows', hcNoContext, NewMenu(
      StdWindowMenuItems(
      NewLine(
      NewItem('Ca~l~culator', '', kbNoKey, cmCalculator, hcNoContext,
      nil)))),
    nil)))))));
end;

procedure TEditorApp.InitStatusLine;
var
  R: TRect;
begin
  GetExtent(R);
  R.A.Y := R.B.Y - 1;
  New(StatusLine, Init(R,
    NewStatusDef(0, $FFFF,
      NewStatusKey('~F2~ Save', kbF2, cmSave,
      NewStatusKey('~F3~ Open', kbF3, cmOpen,
      NewStatusKey('~Alt-F3~ Close', kbAltF3, cmClose,
      NewStatusKey('~F5~ Zoom', kbF5, cmZoom,
      NewStatusKey('~F6~ Next', kbF6, cmNext,
      NewStatusKey('~F10~ Menu', kbF10, cmMenu,
      NewStatusKey('', kbCtrlF5, cmResize,
      nil))))))),
    nil)));
end;

procedure TEditorApp.OutOfMemory;
begin
  MessageBox('Not enough memory for this operation.',
    nil, mfError + mfOkButton);
end;

begin
  EditorApp.Init;
  EditorApp.Run;
  EditorApp.Done;
end.

Дальше программу нужно зарегистрировать.
Допустим, мы хотим открывать её файлы *.mxt (My tXT).
Создаём такой файл блокнотом и сохраняем как filу.mxt
Два раза щёлкаешь на файле - тебе ругаются, что не могут открыть. Говоришь "Хочу выбрать из списка"
Жмёшь "Просмотреть" и ищешь свою программу (куда ты её скопировал после компиляции) - выбираешь её -> ОК
Проверяешь галочку "Открывать всё файлы этого типа" и ещё раз ОК.

Всё.



PS: Компилируется в BP7.0 (turbo.exe), как с другими компиляторами (точнее с наличием модулей) - не знаю. Пиши ,Если что.

[Lexakazanskij]

Большое спасибо всем.

P.S. На полный код я и не раЩитывал СпасиБо!

[Maslan]

Да не за что....
Пиши =)

PS: Поштудируй папочку Examples в паскале. там МНОГО "интересного". Особенно tvedit.pas

[Lexakazanskij]

Я бы поштудировал, да не у всех она есть