Auto åbn af *.txt filer

højre klik på din tekst fil og vælg. Åben med eller Open With for window engelsk.

Vælg dit pogram på listen, eller find det.....Vælg Brug altid dette program, eller Always use this program.

Det sku' vist være det....

Det var det første og eneste jeg selv har prøvet. Den åbner bare programmet, og lader filen være. Jeg kan ikke finde nogen tegn på den har "åbnet" txt-filen.

Prøv at sætte denne kode ind i FormCreate:

if ParamStr(1) = '' then
begin
end
else
begin
Memo1.Lines.LoadFromFile(ParamStr(1));
end;

Den vil så loade den fil som står efter dit program ind i memo'en:
project1.exe etellernadet.txt

Håber du kan bruge det.

Du kan oz bruge richedit...

Det var bare super duber det der, nu virker det i hvert fald.

Jeg vil bare gerne have den til at skrive filnavnet i Title bar'en, ligsom når jeg åbner en fil fra programmet selv.

lige nu ser min form create sådan ud
procedure TForm1.FormCreate(Sender: TObject);
Begin
if ParamStr(1) = '' then
begin
end
else
begin
richedit1.Lines.LoadFromFile(ParamStr(1));
richedit1.Font.size:=spinedit1.Value;
opendialog1.FileName:='';
savedialog1.FileName:='';
caption:='Teksteditor - ingen fil';
end
end;
------------------------------------

opendialog1.FileName:='';
savedialog1.FileName:='';

Dem skal jeg bruge til, når man skal gemme sit dokument senere. Så kan det lade sig gøre?

if not ParamStr(1) = '' then
Memo1.Lines.LoadFromFile(ParamStr(1));

brug dette i stedet for

if ParamStr(1) = '' then
begin
end
else
begin
richedit1.Lines.LoadFromFile(ParamStr(1));

if ParamCount = 0 then
begin
  savedialog1.FileName:='';
  Form1.caption:='Teksteditor - ingen fil';
end
else
begin
  richedit1.Lines.LoadFromFile(ParamStr(1));
  richedit1.Font.size:=spinedit1.Value;
  savedialog1.FileName:=ParamStr(1);
  Form1.Caption:='Teksteditor - '+ParamStr(1); 
end
opendialog1.FileName:='';

Nu virker det næsten. Der skulle lige byttes lidt om på opendialog og savedialog i hreiff's indlæg, men det kunne han sikkert ikke vide.

sidste lille problem. Når jeg bruger nedenstående kode, så skriver den hele stien og filnavnet
Form1.Caption:='Teksteditor - '+ParamStr(1);

Jeg har andet steds brugt -->
extractfilename(opendialog1.filename);
kan man ikke gøre noget ligende? jeg kan ikke lige finde ud af det

nu har jeg fordelt pointne lige over, da jeg jo ændrede min problemstilling lidt undervejs, og ville ikke snyde 911help for hans hjælp. Jeg endte jo op med at bruge hreiff's kode

Du burde sagtens kunne bruge 'Teksteditor - '+extractfilename(ParamStr(1));
Ellers må du selv pille det fra du skal bruge, f.eks
var
i: integer
filnavn: string;
i := length(paramstr(1));
while ((i>0) and (paramstr(1)[i]<>'/')) do
  dec(i);    {tæller ned til den møder /}
filnavn := copy(paramstr(1),i+1,length(paramstr(1)));