Folgendes Beispiel funktioniert bei mir (Form mit einem TRichEdit...
Delphi-Quellcode:
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, ComCtrls;
type
TFRMMain =
class(TForm)
EDTRtf: TRichEdit;
private
{ Private-Deklarationen }
public
procedure AfterConstruction;
override;
{ Public-Deklarationen }
end;
var
FRMMain: TFRMMain;
implementation
{$R *.dfm}
procedure TFRMMain.AfterConstruction;
begin
inherited;
// ShowMessage(IntToStr(ParamCount));
if ParamCount > 0
then
if FileExists(ParamStr(1))
then
if UpperCase(ExtractFileExt(ParamStr(1))) = '
.RTF'
then
EDTRtf.Lines.LoadFromFile(ParamStr(1));
end;
end.
Ich hatte das mit ParamCount verhauen. ParamStr(0) ist zwar der Exename, aber ParamCount zählt den nicht mit.
Frank