|
lo que tengo es esto pero me sale un error diciendo ''El siste,a no puede ayar la ruta espesificada''
procedure TForm1.FormCreate(Sender: TObject);
begin
Modified:=false;
OpenDialog1.InitialDir := ExtractFilePath(ParamStr(0));
SaveDialog1.InitialDir := OpenDialog1.InitialDir;
end;
procedure TForm1.FormShow(Sender: TObject);
begin
if (ParamCount >= 1) and (fileExists(paramstr(1))) Then
PerformFileOpen(paramstr(1));
end;
procedure TForm1.PerformFileOpen(const AFileName: string);
begin
RichEdit1.Lines.LoadFromFile(FileName);
RichEdit1.SetFocus;
Modified:=False;
end;
y me da el error que mensione...
|