Abrindo arquivos via Windows com Delphi

program Mensagem;



uses

  Forms;



{$R *.RES}



begin

  Application.Initialize;

  Application.Run;

  Application.MessageBox(PChar(ParamStr(1)), 'Mensagem', 0);

end.

romulo

É com o ParamStr mesmo. Por exemplo, um programinha que pega o primeiro parâmetro passado e abre uma caixa de mensage...

GBastos

Mas e onde fica afinal a maldita unit system?

E é isso que eu estou fazendo, porém não no código do projeto, tem q...

romulo

Você não precisa declarar, ela já fica disponível automaticamente. Você está debugando dentro do Delphi mesmo né? Voc...

procedure TPrincipalForm.FormCreate(Sender: TObject);

var

  EditorForm: TEditorForm;

begin

    EditorForm := TEditorForm.Create(Self);

    EditorForm.Visible := True;

    if ParamCount > 1 then

         EditorForm.Abrir(ParamStr(1));

end;

GBastos

Aí vai:

[code]procedure TPrincipalForm.FormCreate(Sender: TObject);
var
EditorForm: TEditorFor...

procedure TEditorForm.Abrir(const Arquivo: string);

begin

  Nomedoarquivo := Arquivo; {parametro passado}

  RichEdit1.Lines.LoadFromFile(Nomedoarquivo);

  Caption := ExtractFilename(Nomedoarquivo);

end;

GBastos

É sim, conforme ai embaixo... O procedimento funciona normalmente quando chamado pelo OpenDialog...

[code]proced...

romulo

Só mais uma coisa, o nome do arquivo é o segundo parâmetro na chamada do executável, né? Porque só passa por esse tes...

GBastos

c:\arquivos de programas\borland\delphi\projetcs\hdpad\hdpad.exe" c:\teste.txt

romulo

Com essa chamada aí não vai dar certo, pois no if você testa se existe mais de 1 parâmetro. Mude pra 0 que vai dar ce...

GBastos

Mas entao o ParamCount não retorna o número de parametros reais, so retorna o número de parametros depois do executavel?

romulo

Exatamente.

procedure TPrincipalForm.NovoArquivo(Sender: TObject);

begin

   QuantJanelasNovas := QuantJanelasNovas + 1;

   TEditorForm.Create(self);

end;

procedure TPrincipalForm.NovoArquivo(Sender: TObject);

var

   EditorForm: TEditorForm;

begin

   QuantJanelasNovas := QuantJanelasNovas + 1;

   EditorForm := TEditorForm.Create(Self);

   if ParamCount > 0 then

      EditorForm.Abrir(ParamStr(1));

end;