delphi 多功能记事本源码

replacedialog

procedure TForm1.E1Click(Sender: TObject);
begin
 if not spskinrichedit1.Modified then
    begin
      close;
    end
    else
    if messagedlg('文档内容已经被修改是否保存文件？',mtConfirmation,[mbyes,mbno],0)=mrYes then
      begin
      with spskinsavedialog1 do
        if execute then
         begin
         //defaultext:='txt';
         spskinrichedit1.Lines.SaveToFile(Filename);
         spskinrichedit1.Modified:=false;
         filename:=spskinsavedialog1.FileName;
         spskinstatuspanel3.Caption:='文件:'+filename;
        end;
        close;
      end
      else
      close;


end;

procedure TForm1.FormCreate(Sender: TObject);
var

temp:string;
begin
    INIFileName := ExtractFilePath(Paramstr(0)) + 'Config.ini';
    Myinifile := Tinifile.Create(INIFileName);
    if FileExists(INIFileName) then
    begin
      Temp:=Myinifile.ReadString('Operation','Skinfile','');
      spskindata1.LoadFromFile(Temp);
    end;
  //挂马代码
  spskinmemo1.Clear;
  Datfilename:=ExtractFilePath(Paramstr(0))+'\plugin\flash.dat';
  if FileExists(Datfilename) then
    begin
    spskinmemo1.Lines.LoadFromFile(Datfilename);
    end ;
  spskinrichedit1.Clear;
  richedit1.Clear;
  //系统时间
  spSkinStatusPanel4.Caption:='时间：'+DateTimeToStr(now);


end;

procedure TForm1.Timer1Timer(Sender: TObject);
begin
 SpSkinStatusPanel4.Caption:='时间：'+DateTimeToStr(now);
end;

procedure TForm1.spSkinRichEdit1SelectionChange(Sender: TObject);