starte readme.rtf

kikser!!

det det skulle være readme.txt

shellexec.. Jeg kan ikke huske paramenterne. Prøv at kikke i et tidliger spørgsmål. Det har været der for nylig.

Det skal se sådan her ud...

Uses ShellApi;

ShellExecute(0,Pchar('Open'),'ReadMe.txt',nil,nil,SW_SHOWNORMAL);

Dette læser dokumentet ind i notebook, men sig til hvis du vil vise det i dit eget program i f.eks en memoboks...

Nå, her kommer koden til hvis du vil læse det ind i en memo alligevel :-)

procedure TForm1.Button1Click(Sender: TObject);
Var
T : Textfile;
S : String;
begin
memo1.Clear;

AssignFile(t, 'ReadMe.txt');
Reset(t);
  try
    While not eof(t) do
    begin
      readln(t,s);
      Memo1.lines.Add(s);
    end;
  finally
    Closefile(T);
  end;
end;

MVH
Retep

retep

jeg får en fejlmelding:
"richedit line insertion error"
hvad??

Nåja, det behøver nu heller ikke være så besværligt.

Med en memo :
Memo1.Lines.LoadFromFile('readme.txt');

Og hvis det er rtf sp
RichEdit1.Lines.LoadFromFile('readme.rtf');

Huh???

Og du har rettet memo1 til richedit1 (eller hvad du kalder den)?

Det er vel en alm. *.txt-fil du prøver at åbne, ikk?!

Jeg prøvede selv at lave det her, og da virkede det fint...?
Meget meget mystisk!!!

Ahhhh, lyt til Justincase :-)

Den løsning er da meget smartere.

Mvh.
retep

justincase

en lille men perfekt kode.
tak

Hmm. Jeg troede bare at du ville starte filen med default editor i windows alså samme som at 2xklikke på den i windows.. :)

nej den skulle starte under hjælp i menuen. den exec du tænkte på var et program.