用delphi编写的记事本代码.
Delphi中ScriptControl的高级应用（二）
Delphi中ScriptControl的高级应用（二）5、Delphi中使用javascript的Base64的加解密算法搜索google：javascript base64加密就会找到很多base64加密的代码，以下就是本人搜索到的一段代码（以下代码版权归其原作者）：这么长的一段代码，我们怎样才能以AddCode()的方法加入进去呢？1）第一种方法：把这么长的代码定义给一个字符串。
这个工作量肯定非常大，而且容易出错。
2）第二种方法：把它定义到一个记事本里，程序运行的时候读入。
安全性很低，容易被人修改，导致出错。
3）第三种方法：把它以资源文件的形式存放在一个Dll里。
这种方法比较适合。
以下我们就用这种方法来处理。
生成DLL的步骤：1）新建一个记事本，粘贴上面的代码，最后保存为Base64.txt。
2）新建一个记事本，写上以下代码，最后保存为 Base64.rc。
3）同目录下新建一个批处理文件，保存为Base64.bat。
4）编译成资源文件Res：双击执行Base64.bat，完后会生成一个Base64.res的文件，这个就是JavaScript脚本的资源文件。
5）新建一个DLL，保存为Base64.dpr，加上以下代码，然后编译成Base64.dll。
这样，我们的资源文件打包成dll就完成了！下面，我们的工作就是通过dll来读取JavaScript代码。
下面要做的工作就是通过ScriptControl控件的AddCode()来添加自定义JavaScript函数里。
初始化ScriptControl组件，请参看Delphi中ScriptControl的高级应用（一）/juwuyi/archive/2005/03/19/324041.asp x。
delphi查找文件代码
在Windows程序设计中WinAPI也为我们提供了类似的函数，它们就是WinExec()和ShellExecute()，下面就来讨论一下这两个函数的用法。
1)WinExec() 函数原型：UINT WinExec(LPCSTR lpCmdLine,UINTuCmdShow);参数说明：(激活的意思是能接受焦点，即标题栏变成蓝色)lpCmdLine：以0结尾的字符串，命令行参数。
uCmdShow:新的应用程序的运行方式。
其取值如下：SW_HIDE 隐藏SW_MAXIMIZE 最大化SW_MINIMIZE 最小化，并把Z order顺序在此窗口之后（即窗口下一层）的窗口激活SW_RESTORE 激活窗口并还原为初始化大小SW_SHOW 以当前大小和状态激活窗口SW_SHOWDEFAULT 以默认方式运行SW_SHOWMAXIMIZED 激活窗口并最大化SW_SHOWMINIMIZED 激活窗口并最小化SW_SHOWMINNOACTIVE 最小化但不改变当前激活的窗口SW_SHOWNA 以当前状态显示窗口但不改变当前激活的窗口SW_SHOWNOACTIVATE 以初始化大小显示窗口但不改变当前激活的窗口SW_SHOWNORMAL 激活并显示窗口，如果是最大(小)化，窗口将会还原。
第一次运行程序时应该使用这个值比如说，我想要用记事本打开"C:\HDC.TXT"，以正常方式运行：WinExec("notepad c:\\hdc.txt",SW_SHOWNORMAL);如果调用成功，这个函数会返回一个不小于31的值，否则调用失败，其返回值的意义如下：0 系统内存或资源不足ERROR_BAD_FORMAT .EXE文件格式无效（比如不是32位应用程序）ERROR_FILE_NOT_FOUND 指定的文件设有找到ERROR_PATH_NOT_FOUND 指定的路径没有找到这个函数和system()非常类似，只能运行.EXE文件，这样在WINDOWS中有它不尽人意的地方，比如不能用此方法通过关联的方法打开文件，例如WinExec("1.html",SW_SHOWNA);就不能打开此文档。
Delphi高仿windows记事本源码
主要功能都已添加上并测试可用。
效果图：源码：unit Unit1Calculator;interfaceusesWindows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, Menus, StdCtrls, ComCtrls;typeTForm1 = class(TForm)ColorDialog1: TColorDialog;SaveDialog1: TSaveDialog;ColorDialog2: TColorDialog;MainMenu1: TMainMenu;N1: TMenuItem;myNew: TMenuItem;mySave: TMenuItem;N3: TMenuItem;myPage: TMenuItem;myPrint: TMenuItem;myQuit: TMenuItem;myEdit: TMenuItem;myUndo: TMenuItem;N4: TMenuItem;myCut: TMenuItem;myCopy: TMenuItem;myPaste: TMenuItem;myDelete: TMenuItem;N6: TMenuItem;myFind: TMenuItem;myReplace: TMenuItem;myFormat: TMenuItem;myFont: TMenuItem;myView: TMenuItem;myStatus: TMenuItem;myHelp: TMenuItem;myHelpTopics: TMenuItem;N9: TMenuItem;myAbout: TMenuItem;OpenDialog1: TOpenDialog;FontDialog1: TFontDialog;myOpen: TMenuItem;FindDialog1: TFindDialog;ReplaceDialog1: TReplaceDialog;FontDialog2: TFontDialog;PageSetupDialog1: TPageSetupDialog;PrintDialog1: TPrintDialog;RichEdit1: TRichEdit;procedure myNewClick(Sender: TObject);procedure FormCreate(Sender: TObject);procedure myOpenClick(Sender: TObject);procedure mySaveClick(Sender: TObject);procedure myQuitClick(Sender: TObject);procedure myUndoClick(Sender: TObject);procedure myCutClick(Sender: TObject);procedure myCopyClick(Sender: TObject);procedure myPasteClick(Sender: TObject);procedure myDeleteClick(Sender: TObject);procedure myFindClick(Sender: TObject);procedure myReplaceClick(Sender: TObject);procedure myFontClick(Sender: TObject);procedure myPageClick(Sender: TObject);procedure myPrintClick(Sender: TObject);procedure myAboutClick(Sender: TObject);procedure myHelpTopicsClick(Sender: TObject);procedure FormClose(Sender: TObject; var Action: TCloseAction); private{ Private declarations }public{ Public declarations }end;varForm1: TForm1;implementation{$R *.dfm}var fName: String;procedure TForm1.myNewClick(Sender: TObject);var msg : integer;beginif (richEdit1.Modified) thenbeginmsg := Application.MessageBox('文件已被修改，是否保存?', 'Delphi记事本', mb_YesNoCancel);case msg ofidYes: beginmySaveClick(Sender);richEdit1.Clear;fName := '文档1';Caption := fName + '--Delphi记事本';end;idNo: beginrichEdit1.Clear;fName := '文档1';Caption := fName + '--Delphi记事本';end;idCancel: ;end;endelse beginrichEdit1.Clear;fName := '文档1';Caption := fName + '--Delphi记事本';end;end;procedure TForm1.FormCreate(Sender: TObject);beginfName := '文档1';richEdit1.Clear;Caption := fName + '--Delphi记事本';end;procedure TForm1.myOpenClick(Sender: TObject);var msg : integer;beginif (richEdit1.Modified) thenbeginmsg := Application.MessageBox('文件已被修改，是否保存?', 'Delphi记事本', mb_YesNoCancel);case msg ofidYes: beginmySaveClick(Sender);end;idNo: if (openDialog1.Execute) thenbeginfName := openDialog1.FileName;richEdit1.Lines.LoadFromFile(fName);form1.Caption := fName + 'Delphi记事本';end;idCancel: ;end;endelse if (openDialog1.Execute) thenbeginfName := openDialog1.FileName;richEdit1.Lines.LoadFromFile(fName);form1.Caption := fName + 'Delphi记事本';end;end;procedure TForm1.mySaveClick(Sender: TObject);beginif (fName <> '文档1') thenbeginrichEdit1.Lines.SaveToFile(fName);endelse beginsaveDialog1.FileName := fName;if (saveDialog1.Execute) thenbeginfName := saveDialog1.FileName;richEdit1.Lines.SaveToFile(fName);form1.Caption := fName;end;end;richEdit1.Modified := false;end;procedure TForm1.myQuitClick(Sender: TObject);beginif (richEdit1.Modified) then mySaveClick(Sender); Application.Terminate;end;procedure TForm1.myUndoClick(Sender: TObject);beginrichEdit1.Undo;end;procedure TForm1.myCutClick(Sender: TObject);beginrichEdit1.CutToClipboard;end;procedure TForm1.myCopyClick(Sender: TObject);beginrichEdit1.CopyToClipboard;end;procedure TForm1.myPasteClick(Sender: TObject);beginrichEdit1.PasteFromClipboard;end;procedure TForm1.myDeleteClick(Sender: TObject);beginrichEdit1.ClearSelection;end;procedure TForm1.myFindClick(Sender: TObject);beginfindDialog1.Execute;end;procedure TForm1.myReplaceClick(Sender: TObject);beginreplaceDialog1.Execute;end;procedure TForm1.myFontClick(Sender: TObject);beginfontDialog1.Font := richEdit1.Font; //初始化字体对话框if (fontDialog1.Execute) then richEdit1.SelAttributes.Assign(fontDialog1.Font); end;procedure TForm1.myPageClick(Sender: TObject);beginpageSetupDialog1.Execute;end;procedure TForm1.myPrintClick(Sender: TObject);beginif (printDialog1.Execute) thenbeginrichEdit1.Print(fName);end;end;procedure TForm1.myAboutClick(Sender: TObject);beginShowMessage('Delphi记事本1.0' + #13 + ' 记念于12.5.14');end;procedure TForm1.myHelpTopicsClick(Sender: TObject);beginmyAboutClick(Sender);end;procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction); beginmyQuitClick(Sender);end;end.。
delphi代码
实验7：BeginIf RadoButton1.Checked=true thenBeginWith Open Dialog1 doBeginFilter:=’文本文件’(*.txt)*.txt’ ;DefaultExt:=’txt’;Filename:=”;Options:=[ofHideReadOnly,ifFilemustexist,ofpathmustexist];If execute thenIf ofextensiondifferent in options thenMessigedlg(不存在扩展名为.txt的文件’,mterror,[mbok],0) ElseMemol1.Lines.loadfromfile(filename);End;EndIf radiobutton2.cheaked=true thenBeginWith optiondialog1 doBeginFilter:=’任何类型文件（*.*）|*.*‘；Filename:=”;Options:=[];If execute thenMemo1.lines.loadfromfile(filename);End;End;End;Procedure tform1.button2click(sender:tobject);BeginIf radiobutton1.checked=true thenBeginWith savedialog1 doBeginFilter:=’文本文件(*.txt)|*.txt’;Defaultext:=’txt’;Filename:=”;Options:=[ofhidereadonly,ofpathmustexist];If execute thenIf ofextensiondifferent in options thenMessagedlg(‘不是扩展名为.txt的文件’,mterror,[mbok],0) ElseMemo1.lines.savetofile(filename);End;If radiobutton2.checked=true thenBeginWith savedialog1 doBeginFile:=’任何类型文件(*.*)|*.*’;Filename:=”;Options:=[ofpathmustexist];If execute thenMemo1.lines.savetofile(filename);End;End;End;Procedure tform1.button3click(sender:tobject); BeginWith fondialog1 doBeginOptions:=[fdeffects,fdtruetypeonly,fdforcefontexist]; If execute thenMemo1.font:=font;End;Procedure tform1.button4click(sender:tobject);BeginClose;End;实验8Procedure twinform.button1.checked=true thenBeginIf radiobutton1.checked=true thenBeginWith openfiledialog1 doBeginFilter:=’文本文件(*.txt)|*.txt’;Defaultext:=’txt’;Filename:=”;Restoredirectory:=true;If showdialog=system.windos.forms.dialogresult.ok thenRich textbox1.loadfile(filename,richtextboxstreamtype.plaintext); End;End;If radiobutton2.checked=true thenWith optionfiledialog1 doBeginFilename:=’任何类型文件（*.*）|*.*‘；Filename:=”;Restoredictory:=true;If showdialog=system.windows.forms.dialogresult.ok thenRichtextbox1.loadfile(filename,richtextboxstreamtype.plaintext);End;End;End;Proceduretwinform.button2_click(sender:system.object;e:system.eventargs);BeginWith savefiledialog1.doBeginFilter:=’文本文件’(*.txt)|*.txt’;Defaultext:=’txt’;Filename:=”;If showdialog=system.windows.forms.dialogresult.ok thenRichtextbox1.savefile(filename,richtextboxstreamtype.plaintext);End;End;If radiobutton2.checked=true thenBeginWith savefiledialog1 doBeginFilter:=’任何类型文件’(*.*)|*.*’;Filename:=”;If showdialog=system.windows.forms.dialogresult.ok thenRichtextbox1.savefile(filename,richtextboxstreamtype.plaintext);End;End;End;Proceduretwinform.button3_chick(sender:system.object;e:system.eventargs);BeginWith fontdialog1 do beginIf showdialog=system.windows.forms.dialogresult.ok thenRichtextbox1.font:=font;End;End;Proceduretwinform.button4_click(sender:system.object;e:system.eventargs);BeginClose;End;实验9Procedure tform1.new1click(sender:tobject);BeginForm1.caption:=’文档1’;Txtname1:= ’文档1’;Form1.richedit1.lines.clear;End;Procedure tform1.open1click(sender:tobject);BeginIf form1.opendialog1.execute thenBeginForm1.richedit1.lines.loadfromfile(form1Opendialog1.filename);Form1.caption:=form1.optiondialog1.filename;End;End;Procedure tform1.save1click(sender:tobject); BeginIf richedit1.modified thenIf form1.caption<>’文档1’thenForm1.richedit1.lines.savetofile(txtname) Else if form1.savedialog1.execute then BeginTxtname:=form1.savedialog1.filename; Form1.richedit1.lines.savetofile(txtname); End;End;Procedure tform1.exit1click(sender:tobject); BeginClose;End;Procedure tform1.printclick(seder:tobject); BeginForm1.printdialog1.execute;End;Procedure tform1.cut1click(sender:tobject); BeginForm1.richedit1.undo;Procedure tform1.cut1click(sender:tobject);BeginForm1.richedit1.cuttoclpboard;End;Procedure tform1.copyclick(sender:tobject);BeginForm1.richedit1.copytoclipboard;End;Proceduretform1.richedit1.paste1click(sender:tobject); BeginForm1.richedit1.pastefromclipboard;End;Procedure tform1.replacedialog1.extcute;End;Procedure tform1.toolbutton1click(sender:tobject); BeginForm1.caption:=’文档1’;Txtname:= ’文档1’;Form1.richedit1.lines.clear;End;Procedure tform1.toolbutton2click(sender:object);If form1.opendialog1.execute thenBeginIf form1.opendialog1.execute thenBeginForm1.richedit1.lines.loadfromfile(form1.opendialog1.filename); Form1.caption:=form1.opendialog1.filename;End;End;Procedure tform1.toolbutton1click(sender:tobject);BeginIf richedit1.modified thenIf form1.caption<>’文档1’thenForm1.richedit1.lines.savetofile(txtname);Else if form1.savedialog1.execute thenBeginTxtname:=form1.savedialog1.filename;Form1.richedit1.lines.savetofile(txtname);End;End;Procedure tform1.toolbutton4click(sender:tobject);BeginForm1.printdialog1.execute;End;Procedure tform1.toolbutton5click(sender:tobject); BeginForm1.richedit1.cuttoclipboard;End;Procedure tform1.toolbutton6click(sender:tobject); BeginForm1.richedit1.copytoclipboard;End;Procedure tform1.toolbutton7click(sender:tobject); BeginForm1.richedit1.paste1fromclipboard;End;Procedure tform1.toolbutton8click(sender:tobject); BeginForm1.richedit1.font.style:=[fsbold];End;Procedure tform1.toolbutton9click(sender:tobject); BeginForm1.richedit1.font.style:=[fsunderline];End;Procedure tform1.toolbutton10click(sender:tobject);BeginForm1.richedit1.font.style:=[fsitalic];End;Procedure tform1.formcreat(sender:tobject);BeginForm1.caption:=’文档1’;txtname:=’文档1’;form1.statusbar1.panels[0].text:=txtname;form1.statusbar1.panels[1].text:=timetostr;form1.statusbar1.panels[2].text:=datetostr;end;实验十Proceduretform.menultem2_click(sender:system.object;e:system.eventargs);BeginText:=’文档1’;Txtname:=’文档1’;Richtextbox1.clear;End;Proceduretform.menultem3_click(sender:system.object;e:system.eventargs);BeginIf openfiledialog1.showdialog=system.windows.forms.dialogrsult.ok thenBeginRichtextbox1.loadfile(openfiledialog1.filename,richtextboxstreamty pe.plaintext);Text:=openfiledialog1.filename;End;End;Proceduretform.menultem4_click(sender:system.object;e:system.eventargs);BeginIf richtextbox1.modidied thenIf text<>’文档1’thenRichtextbox1.savefile(txtname);Else if savefiledialog1.showdialog=system.wimdows.forms.dialogresutl.ok then BeginTxtname:=savefiledialog1.filename;Richtextbox1.savefile(txtname);End;End;Proceduretform.menultem6_click(sender:system.object;e:system.eventargs);BeginClose;End;Proceduretform.menultem8_click(sender:system.object;e:system.eventargs);BeginRichtextbox1.undo;End;Proceduretform.menultem9_click(sender:system.object;e:system.eventargs);BeginRichtextbox1.cut;End;Proceduretform.menultem10_click(sender:system.object;e:system.eventargs);BeginRichtextbox1.copy;End;Proceduretform.menultem11_click(sender:system.object;e:system.eventargs);BeginRichtextbox1.paste;End;Proceduretwinform.twform_load(sender:system.object;e:system.event);BeginText:=’文档1’;txtname:=’文档1’;statusbar1.panels[0].text:=txtname;statusbar1.panels[1].text:=timetostr(time);statusbar1.panels[0].text:=datetostr(date);end;实验十一Procedure tformmainMminewexecute(sender:tobject);BeginControlbar1.visible:=false;Statusbar1.visible:=tfrmeditor.create(self);Procedure tformmaintbopenclick (sender:tobject);beginopendialog1.execute;if opendialog1.filename<>”thembegincontrobar1.visible:=false;statusbar1.visible:=false;with tformeditor.create(self)doopenfile(opendialog1.filename);end;end;Procedure tformmainmmihelpextcute(sender:tobject);consthelp_tab=15;contents_active=-3;beginapplication.helpcommand(help_tab,contents_active); end;application.helpcommand(help_tab,contents_active); end;procedure tfmmain.mmiaboutexecute(sender:tobject);beginwith taboutbox.create(self)dotryshowmodal;finallyfree;end;end;procedure tfrmmain.formtreate(sender.tobjec);beginapplication.onhint:=showhint;application.helpfile:=exetracefilepath(application.exename)+textedi tor.hlp’;end;。
简易文本编辑器（Delphi源码）
简易⽂本编辑器（Delphi源码）设计⼀个简易的⽂本编辑器，具有创建、编辑、保存普通⽂本⽂件的功能。
unit U nit1;interfaceusesWindows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,Dialogs, StdCtrls, ExtCtrls;typeTForm1 = class(TForm)Panel1: TPanel;Memo1: TMemo;OpenDialog1: TOpenDialog;SaveDialog1: TSaveDialog;Button1: TButton;Button2: TButton;Button3: TButton;Button4: TButton;Button5: TButton;Button6: TButton;Button7: TButton;procedure Button1Click(Sender: TObject);procedure Button2Click(Sender: TObject);procedure Button3Click(Sender: TObject);procedure Button4Click(Sender: TObject);procedure Button5Click(Sender: TObject);procedure Button6Click(Sender: TObject);procedure Button7Click(Sender: TObject);private{ Private declarations }public{ Public declarations }end;varForm1: TForm1;varf:textfile;wfilename:string;flag:boolean;implementation{$R *.dfm}procedure TForm1.Button1Click(Sender: TObject);beginassignfile(f,'newfile.txt');form1.Caption:='newfile.txt';wfilename:='newfile.txt';rewrite(f);memo1.Enabled:=true;button1.Enabled:=false;button2.Enabled:=false;button3.Enabled:=false;button4.Enabled:=true;button5.Enabled:=true;button6.Enabled:=true;button7.Enabled:=true;closefile(f);end;procedure TForm1.Button2Click(Sender: TObject);varline:string;beginif opendialog1.Execute thenbeginassignfile(f,opendialog1.FileName);reset(f);form1.Caption:=opendialog1.FileName;memo1.Enabled:=false;flag:=true;while not eof(f) dobeginreadln(f,line);memo1.Lines.Add(line);end;button1.Enabled:=false;button2.Enabled:=false;button3.Enabled:=false;button4.Enabled:=false;button5.Enabled:=false;button6.Enabled:=true;button7.Enabled:=true;closefile(f);end;end;procedure TForm1.Button3Click(Sender: TObject); varline:string;beginif opendialog1.Execute thenbeginwfilename:=opendialog1.FileName;assignfile(f,wfilename);form1.Caption:=wfilename;reset(f);memo1.Enabled:=true;while not eof(f) dobeginreadln(f,line);memo1.Lines.Add(line);end;button1.Enabled:=false;button2.Enabled:=false;button3.Enabled:=false;button4.Enabled:=true;button5.Enabled:=true;button6.Enabled:=true;button7.Enabled:=true;closefile(f);end;end;procedure TForm1.Button4Click(Sender: TObject); vari,lastline:integer;beginlastline:=memo1.Lines.Add('')-1;assignfile(f,wfilename);rewrite(f);for i:=0 to lastline dobeginwrite(f,memo1.lines[i]);end;closefile(f);end;procedure TForm1.Button5Click(Sender: TObject); vari,lastline:integer;writefile:textfile;beginif savedialog1.Execute thenbeginwfilename:=savedialog1.FileName;assignfile(writefile,wfilename);rewrite(writefile);form1.Caption:=wfilename;lastline:=memo1.Lines.Add('')-1;for i:=0 to lastline dobeginwriteln(writefile,memo1.lines[i]);end;closefile(writefile);end;end;procedure TForm1.Button6Click(Sender: TObject);vari:integer;beginif not flag theni:=messagedlg('save file ?',mtConfirmation,mbYesNoCancel,0); if i <> 2 thenbeginif i=6 thenButton4Click(sender);memo1.Clear;form1.Caption:='';memo1.Enabled:=false;button1.Enabled:=true;button2.Enabled:=true;button3.Enabled:=true;button4.Enabled:=false;button5.Enabled:=false;button6.Enabled:=false;button7.Enabled:=true;end;flag:=false;end;procedure TForm1.Button7Click(Sender: TObject);beginclose;end;end.。
delphi记事本开发
Delphi程序设计第三节模仿制作windows 计算器首先：我们设置FORM1的窗口属性这样窗口就不可以随便拉大拉小了！用选中计算器的图标！把FORM1的caption属性设置为模仿的windows 计算器。
画一个EDIT组建（），并把他的TEXT属性里的字删除！使TEXT里边显示为空！好了，画好了，我们接着来画面板！点一下（panel）该组件只是为了好看没有多大的实际用途！拉到适当的大小的时候我们来设置他的属性！首先，我们把他的这个属性清空，是面板上不显示字！把设置为使面板下沉我们再画18个快速按钮，分别把CAPTION属性设置成如图好了，到此，我们的界面就画完了！我们先来讲讲本节用到的组件属性！Form1.caption (代表是FORM1的标题文本)，我们可以在属性页里设置也可以用语句设置；Delphi里所有的组件属性都可以用语句设置，以后我就不重复了！例：form1.caption:=’哈哈，测试一下！’; //这时候则form1的标题为哈哈，测试一下！Edit1.text:=’看看你聪明不！’；//这时候edit1里边显示的文本为看看你聪明不！Panel 面板组件，无实际用途，主要用于界面美观·！Speedbutton 快速按钮！主要属性：checked 设置是否被选中flat 设置是否为OFFICE 2000风格Down 设置是否按下好了，接下来我们写代码！重点难点解析：edit1.text:=edit1.text + '1'; 此句话的意思是代表在原来的字符串后面加个字符串1例：假如说原来的edit1.text 为字符串123456 在执行上面的语句的话，edit1.text 的值则为1234561speedbutton12.caption = '关闭' 注意：等于号在Delphi中代表比较的意思，就是说此句的意思是比较speedbutton12.caption 的值和字符串关闭是不是相等的！case flag of1:temp2:=strtofloat(edit1.text)+ strtofloat(temp1);2:temp2:=strtofloat(temp1) - strtofloat(edit1.text);3:temp2:=strtofloat(edit1.text)* strtofloat(temp1);4:temp2:strtofloat(temp1) / strtofloat(edit1.text);end;edit1,text:=floattostr(temp2);strtofloat 把字符串转换为浮点数floattostr 和上面的相反case flag of 当FLAG的值和下面的符合时运行后面的表达式…..。
用delphi编写的记事本代码.
unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, Menus, StdCtrls, ComCtrls, ExtCtrls, ToolWin, ImgList; type TForm1 = class(TForm MainMenu1: TMainMenu; RichEdit1: TRichEdit; OpenDialog1: TOpenDialog; SaveDialog1: TSaveDialog; N1: TMenuItem; N2: TMenuItem; N3: TMenuItem; FontDialog1: TFontDialog; N4: TMenuItem; N5: TMenuItem; N6: TMenuItem; N7: TMenuItem; N8: TMenuItem; N9: TMenuItem; N10: TMenuItem; N11: TMenuItem; N12: TMenuItem; N13: TMenuItem; N14: TMenuItem; N15: TMenuItem; N16: TMenuItem; N17: TMenuItem; N18: TMenuItem; N19: TMenuItem; N20: TMenuItem; PopupMenu1: TPopupMenu; FindDialog1: TFindDialog; N21: TMenuItem; PrintDialog1: TPrintDialog; N22: TMenuItem; N23: TMenuItem; N24: TMenuItem; N25: TMenuItem; N26: TMenuItem; N27: TMenuItem; N28: TMenuItem; N31: TMenuItem; N32: TMenuItem; S1: TMenuItem; Timer1: TTimer; StatusBar2: TStatusBar; ToolBar1: TToolBar; ToolButton1: TToolButton; ToolButton2: TToolButton; ToolButton3: TToolButton; ToolButton4: TToolButton; ToolButton5: TToolButton; ToolButton6: TToolButton; ToolButton7: TToolButton; ToolButton8: TToolButton; ToolButton9: TToolButton; ToolButton10: TToolButton; ToolButton11: TToolButton; ToolButton12: TToolButton; ToolButton13: TToolButton; ImageList1: TImageList; procedureN2Click(Sender: TObject; procedure N3Click(Sender: TObject; procedureN7Click(Sender: TObject; procedure N8Click(Sender: TObject; procedureN9Click(Sender: TObject; procedure N14Click(Sender: TObject; procedureN21Click(Sender: TObject; procedure N16Click(Sender: TObject; procedureN17Click(Sender: TObject; procedure N18Click(Sender: TObject; procedureN12Click(Sender: TObject; procedure N20Click(Sender: TObject; procedureN6Click(Sender: TObject; procedure S1Click(Sender: TObject; procedureFindDialog1Find(Sender: TObject; procedure Timer1Timer(Sender: TObject; procedure N24Click(Sender: TObject; procedure N25Click(Sender: TObject; procedureN26Click(Sender: TObject; procedure N27Click(Sender: TObject; procedureN28Click(Sender: TObject; procedure RichEdit1MouseMove(Sender: TObject; Shift:TShiftState; X, Y: Integer; procedure RichEdit1KeyDown(Sender: TObject; var Key: Word; Shift: TShiftState; procedure RichEdit1Enter(Sender: TObject; private { Private declarations } public { Public declarations } end; var Form1: TForm1; filename: string; temp:integer; implementation {$R *.dfm} procedure TForm1.N2Click(Sender: TObject; begin if opendialog1.Execute then begin Form1.Caption:=ExtractFileName(OpenDialog1.FileName;richedit1.lines.LoadFromFile(opendialog1.FileName; end end; procedureTForm1.N3Click(Sender: TObject; begin if filename='' then begin if savedialog1.Execute then begin richedit1.Lines.SaveToFile(savedialog1.FileName;filename:=savedialog1.filename; end end elserichedit1.Lines.SaveToFile(savedialog1.FileName; end; procedureTForm1.N7Click(Sender: TObject; begin fontdialog1.Execute;richedit1.SelAttributes.Assign(fontdialog1.Font; end; procedure TForm1.N8Click(Sender: TObject; begin if RichEdit1.Modified then begin temp:=MessageDlg('内容发生改变，是否要保存',mtwarning,mbyesnocancel,0; if temp=6 then begin Form1.N3Click(Sender ; RichEdit1.Lines.Clear; end; if temp=7 then RichEdit1.Lines.Clear; end elseRichEdit1.Lines.Clear; end; procedure TForm1.N9Click(Sender: TObject; begin with savedialog1 do if execute then begin richedit1.Lines.SaveToFile (filename;opendialog1.FileName := filename; end; end; procedure TForm1.N14Click(Sender: TObject; begin richedit1.Perform(EM_UNDO,0,0; end; procedureTForm1.N21Click(Sender: TObject; begin richedit1.SelectAll; end; procedureTForm1.N16Click(Sender: TObject; begin richedit1.cuttoclipboard; end; procedure TForm1.N17Click(Sender: TObject; begin richedit1.copyToClipboard; end; procedure TForm1.N18Click(Sender: TObject; begin richedit1.PasteFromClipboard; end; procedure TForm1.N12Click(Sender: TObject; begin PrintDialog1.Execute; end; procedureTForm1.N20Click(Sender: TObject; begin finddialog1.Execute; end; procedureTForm1.N6Click(Sender: TObject; begin if N6.Checked then begin N6.Checked:=false; RichEdit1.WordWrap:=False; end else begin n6.Checked:=True;RichEdit1.WordWrap:=True; end end; procedure TForm1.S1Click(Sender: TObject; begin if s1.Checked then begin s1.Checked:=false; statusbar2.visible:=False; end else begin s1.Checked:=True; statusbar2.visible:=True; end end; procedureTForm1.FindDialog1Find(Sender: TObject; Var findat:longint; startpos,toend:integer; begin with richedit1 do begin if sellength<>0 then startpos:=selstart+sellength else startpos:=0; toend:=length(text-startpos;findat:=findtext(FindDialog1.FindText,startpos,toend,[stMatchCase]; if findat<>-1 then begin setfocus ; SelStart:=findat; SelLength:=Length(FindDialog1.FindText end; end; end; procedure TForm1.Timer1Timer(Sender: TObject; beginstatusbar2.Panels[1].Text:=timetostr(time(; end; procedure TForm1.N24Click(Sender: TObject; begin richedit1.Perform(EM_UNDO,0,0; end; procedureTForm1.N25Click(Sender: TObject; begin richedit1.cuttoclipboard; end; procedure TForm1.N26Click(Sender: TObject; begin richedit1.copyToClipboard; end; procedure TForm1.N27Click(Sender: TObject; begin richedit1.PasteFromClipboard; end; procedure TForm1.N28Click(Sender: TObject; begin richedit1.SelectAll; end; procedure TForm1.RichEdit1MouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer; begin StatusBar2.Panels[0].Text:=IntToStr(RichEdit1.CaretPos.Y+1+'行'+inttostr(RichEdit1.CaretPos.X+1+'列' end; procedureTForm1.RichEdit1KeyDown(Sender: TObject; var Key: Word; Shift: TShiftState; begin if Key=13 then StatusBar2.Panels[0].Text:=IntToStr(RichEdit1.CaretPos.Y+2+'行'+'1列' else StatusBar2.Panels[0].Text:=IntToStr(RichEdit1.CaretPos.Y+1+ '行'+inttostr(RichEdit1.CaretPos.X+2+'列' end; procedure TForm1.RichEdit1Enter(Sender: TObject; begin StatusBar2.Panels[0].Text:=IntToStr(RichEdit1.CaretPos.Y+1+'行'+inttostr(RichEdit1.CaretPos.X+1+'列' end; end.。
Delphi常用代码（个人自用整理2）
Delphi常⽤代码（个⼈⾃⽤整理2）3.Delphi 实现⽂件加密源码unit main;interfaceusesWindows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls,ShellAPI,inifiles,registry,Des ,FileCtrl, jpeg, ExtCtrls;typeTBruce = class(TForm)dlgOpen1: TOpenDialog;Image1: TImage;Button2: TButton;Edit1: TEdit;Label1: TLabel;Button1: TButton;Label2: TLabel;Edit2: TEdit;Button3: TButton;Label3: TLabel;Edit3: TEdit;Button5: TButton;procedure FormCreate(Sender: TObject);procedure Button5Click(Sender: TObject);procedure JiaMI(var FilePath,MiMa:string);procedure JieMi(var DianFile:string);procedure ZhuCeCaiDan;procedure DelZhuCe;procedure Button1Click(Sender: TObject);procedure Edit2Exit(Sender: TObject);procedure FormShow(Sender: TObject);procedure Button2Click(Sender: TObject);procedure Button3Click(Sender: TObject);private{ Private declarations }public{ Public declarations }end;varBruce: TBruce;FilePahtName :string;sRoot:WideString;sCaption:string;implementationuses Unit2;{$R *.dfm}DianFile,IniPath:string;inifile: TInifile;beginDianFile:=FilePath+'..\';iniPath:='dat.ini';inifile:=TIniFile.Create(IniPath);inifile.WriteString('111','key',DES.EncryStrHex(MiMa,'FEIGEW')); inifile.Free;renamefile(FilePath,DianFile);end;procedure TBruce.FormCreate(Sender: TObject);vari: Integer;beginZhuCeCaiDan;for i := 1 to ParamCount dobeginif LowerCase(ParamStr(i)) <> '' then beginFilePahtName:= ParamStr(i);end;end;end;procedure TBruce.JieMi(var DianFile:string);varFileName,FileJD:string;i:Integer;beginFileName:=DianFile+'.\';I:=Length(FileName);FileJD:=Copy(FileName,1,i-3);renamefile(FileName,FileJD);end;procedure TBruce.ZhuCeCaiDan;vara:TRegistry;begina:=TRegistry.create;a.rootkey:=HKEY_CLASSES_ROOT;if a.openkey('Folder\Shell\cutbig',true) thena.closekey;end;if a.openkey('Folder\Shell\cutbig\command',true) thenbegin//command⼦键的内容是点击右键后选择相应项后要运⾏的程序；//%1是在单击右键时选中的⽂件名a.writestring('','"'+Application.exeName+'" "%1"');a.closekey;end;a.free;end;procedure TBruce.DelZhuCe;vara:TRegistry;begina:=TRegistry.create;a.rootkey:=HKEY_CLASSES_ROOT;//⽤deletekey删除⼀个主键，其所包含的⼦键也被删除，如果已⽆此主键，运⾏删除操作不会带来别的危害a.deletekey('Folder\Shell\cutbig');a.free;Application.MessageBox('成功删除系统右键菜单！', '成功', MB_OK +MB_ICONINFORMATION);end;procedure TBruce.Button5Click(Sender: TObject);beginapplication.Terminate;end;procedure TBruce.Button1Click(Sender: TObject);varpassword:string;beginif FilePahtName='' then beginApplication.MessageBox('没有可加密的⽂件夹，请从⽂件夹上右键启动加密程序！','系统', MB_OK + MB_ICONWARNING);//Application.Terminate;end;if (Edit1.Text='') or (Edit2.text='') then beginApplication.MessageBox('密码不能为空，请输⼊你的密码！', '系统', MB_OK +MB_ICONWARNING);Exit;end;if Edit2.Text=Edit1.Text then beginpassword:=Edit2.Text;JiaMI(FilePahtName,password);Application.MessageBox('⽂件夹添加密码成功，请牢记您的密码！', '系统', MB_OK+ MB_ICONINFORMATION);//Application.Terminate;end else beginend;end;procedure TBruce.Edit2Exit(Sender: TObject);beginif Edit2.Text<>Edit1.Text then beginApplication.MessageBox('两次输⼊的密码不⼀致，请重新输⼊！', '系统', MB_OK + MB_ICONWARNING);Edit2.SetFocus;end;end;procedure TBruce.FormShow(Sender: TObject);beginEdit1.SetFocus;end;procedure TBruce.Button2Click(Sender: TObject);begin{ FilePahtName:='';if not dlgOpen1.Execute then exit;FilePahtName:=dlgOpen1.FileName;ShowMessage(FilePahtName);}sCaption := '⽂件夹'; //弹出框标题名(⾮弹出框窗体名)sRoot := ''; //初始⽂件夹(如'C:\','D:\DownLoad'等, 不存在则从桌⾯)beginif SelectDirectory(sCaption, sRoot, FilePahtName) then//已返回所选⽂件夹路径给FilePahtName,⾃⾏处理end;ShowMessage(FilePahtName);end;procedure TBruce.Button3Click(Sender: TObject);varlen:Integer;inifile: TInifile;IniPath,password,sstemp:string;beginBruce.JieMi(FilePahtName);len:=Length(FilePahtName);sstemp:=Copy(FilePahtName,1,len-1);iniPath:='dat.ini';inifile:=TIniFile.Create(IniPath);password:=inifile.ReadString('111','key','');password:=des.DecryStrhex(password,'FEIGEW');inifile.Free;Bruce.JiaMI(sstemp,password);if Edit3.Text=password then beginBruce.JieMi(FilePahtName);DeleteFile(IniPath) ;Application.MessageBox('您输⼊的密码错误，请重新输⼊密码！', '系统', MB_OK +MB_ICONWARNING);Edit3.SetFocus;end;end;end.⼀、“软件限时注册”控件（TShareRegist）功能说明：简介：⼀、1、只要将该控件加⼊主窗体，使Action属性设为true，再设置其它属性，你的软件就有限时注册的功能了，只要你牢记三个密钥，并加上给你的算号软件（RegObject_Admin.exe）你就可以⽆敌天下了。
- 1、下载文档前请自行甄别文档内容的完整性，平台不提供额外的编辑、内容补充、找答案等附加服务。
- 2、"仅部分预览"的文档,不可在线预览部分如存在完整性等问题,可反馈申请退款(可完整预览的文档不适用该条件!)。
- 3、如文档侵犯您的权益，请联系客服反馈,我们会尽快为您处理(人工客服工作时间：9:00-18:30)。
unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, Menus, StdCtrls, ComCtrls, ExtCtrls, ToolWin, ImgList; type TForm1 = class(TForm MainMenu1: TMainMenu; RichEdit1: TRichEdit; OpenDialog1: TOpenDialog; SaveDialog1: TSaveDialog; N1: TMenuItem; N2: TMenuItem; N3: TMenuItem; FontDialog1: TFontDialog; N4: TMenuItem; N5: TMenuItem; N6: TMenuItem; N7: TMenuItem; N8: TMenuItem; N9: TMenuItem; N10: TMenuItem; N11: TMenuItem; N12: TMenuItem; N13: TMenuItem; N14: TMenuItem; N15: TMenuItem; N16: TMenuItem; N17: TMenuItem; N18: TMenuItem; N19: TMenuItem; N20: TMenuItem; PopupMenu1: TPopupMenu; FindDialog1: TFindDialog; N21: TMenuItem; PrintDialog1: TPrintDialog; N22: TMenuItem; N23: TMenuItem; N24: TMenuItem; N25: TMenuItem; N26: TMenuItem; N27: TMenuItem; N28: TMenuItem; N31: TMenuItem; N32: TMenuItem; S1: TMenuItem; Timer1: TTimer; StatusBar2: TStatusBar; ToolBar1: TToolBar; ToolButton1: TToolButton; ToolButton2: TToolButton; ToolButton3: TToolButton; ToolButton4: TToolButton; ToolButton5: TToolButton; ToolButton6: TToolButton; ToolButton7: TToolButton; ToolButton8: TToolButton; ToolButton9: TToolButton; ToolButton10: TToolButton; ToolButton11: TToolButton; ToolButton12: TToolButton; ToolButton13: TToolButton; ImageList1: TImageList; procedureN2Click(Sender: TObject; procedure N3Click(Sender: TObject; procedureN7Click(Sender: TObject; procedure N8Click(Sender: TObject; procedureN9Click(Sender: TObject; procedure N14Click(Sender: TObject; procedureN21Click(Sender: TObject; procedure N16Click(Sender: TObject; procedureN17Click(Sender: TObject; procedure N18Click(Sender: TObject; procedureN12Click(Sender: TObject; procedure N20Click(Sender: TObject; procedureN6Click(Sender: TObject; procedure S1Click(Sender: TObject; procedureFindDialog1Find(Sender: TObject; procedure Timer1Timer(Sender: TObject; procedure N24Click(Sender: TObject; procedure N25Click(Sender: TObject; procedureN26Click(Sender: TObject; procedure N27Click(Sender: TObject; procedureN28Click(Sender: TObject; procedure RichEdit1MouseMove(Sender: TObject; Shift:TShiftState; X, Y: Integer; procedure RichEdit1KeyDown(Sender: TObject; var Key: Word; Shift: TShiftState; procedure RichEdit1Enter(Sender: TObject; private { Private declarations } public { Public declarations } end; var Form1: TForm1; filename: string; temp:integer; implementation {$R *.dfm} procedure TForm1.N2Click(Sender: TObject; begin if opendialog1.Execute then begin Form1.Caption:=ExtractFileName(OpenDialog1.FileName;richedit1.lines.LoadFromFile(opendialog1.FileName; end end; procedureTForm1.N3Click(Sender: TObject; begin if filename='' then begin if savedialog1.Execute then begin richedit1.Lines.SaveToFile(savedialog1.FileName;filename:=savedialog1.filename; end end elserichedit1.Lines.SaveToFile(savedialog1.FileName; end; procedureTForm1.N7Click(Sender: TObject; begin fontdialog1.Execute;richedit1.SelAttributes.Assign(fontdialog1.Font; end; procedure TForm1.N8Click(Sender: TObject; begin if RichEdit1.Modified then begin temp:=MessageDlg('内容发生改变，是否要保存',mtwarning,mbyesnocancel,0; if temp=6 then begin Form1.N3Click(Sender ; RichEdit1.Lines.Clear; end; if temp=7 then RichEdit1.Lines.Clear; end elseRichEdit1.Lines.Clear; end; procedure TForm1.N9Click(Sender: TObject; begin with savedialog1 do if execute then begin richedit1.Lines.SaveToFile (filename;opendialog1.FileName := filename; end; end; procedure TForm1.N14Click(Sender: TObject; begin richedit1.Perform(EM_UNDO,0,0; end; procedureTForm1.N21Click(Sender: TObject; begin richedit1.SelectAll; end; procedureTForm1.N16Click(Sender: TObject; begin richedit1.cuttoclipboard; end; procedure TForm1.N17Click(Sender: TObject; begin richedit1.copyToClipboard; end; procedure TForm1.N18Click(Sender: TObject; begin richedit1.PasteFromClipboard; end; procedure TForm1.N12Click(Sender: TObject; begin PrintDialog1.Execute; end; procedureTForm1.N20Click(Sender: TObject; begin finddialog1.Execute; end; procedureTForm1.N6Click(Sender: TObject; begin if N6.Checked then begin N6.Checked:=false; RichEdit1.WordWrap:=False; end else begin n6.Checked:=True;RichEdit1.WordWrap:=True; end end; procedure TForm1.S1Click(Sender: TObject; begin if s1.Checked then begin s1.Checked:=false; statusbar2.visible:=False; end else begin s1.Checked:=True; statusbar2.visible:=True; end end; procedureTForm1.FindDialog1Find(Sender: TObject; Var findat:longint; startpos,toend:integer; begin with richedit1 do begin if sellength<>0 then startpos:=selstart+sellength else startpos:=0; toend:=length(text-startpos;findat:=findtext(FindDialog1.FindText,startpos,toend,[stMatchCase]; if findat<>-1 then begin setfocus ; SelStart:=findat; SelLength:=Length(FindDialog1.FindText end; end; end; procedure TForm1.Timer1Timer(Sender: TObject; beginstatusbar2.Panels[1].Text:=timetostr(time(; end; procedure TForm1.N24Click(Sender: TObject; begin richedit1.Perform(EM_UNDO,0,0; end; procedureTForm1.N25Click(Sender: TObject; begin richedit1.cuttoclipboard; end; procedure TForm1.N26Click(Sender: TObject; begin richedit1.copyToClipboard; end; procedure TForm1.N27Click(Sender: TObject; begin richedit1.PasteFromClipboard; end; procedure TForm1.N28Click(Sender: TObject; begin richedit1.SelectAll; end; procedure TForm1.RichEdit1MouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer; begin StatusBar2.Panels[0].Text:=IntToStr(RichEdit1.CaretPos.Y+1+'行'+inttostr(RichEdit1.CaretPos.X+1+'列' end; procedureTForm1.RichEdit1KeyDown(Sender: TObject; var Key: Word; Shift: TShiftState; begin if Key=13 then StatusBar2.Panels[0].Text:=IntToStr(RichEdit1.CaretPos.Y+2+'行'+'1列' else StatusBar2.Panels[0].Text:=IntToStr(RichEdit1.CaretPos.Y+1+ '行'+inttostr(RichEdit1.CaretPos.X+2+'列' end; procedure TForm1.RichEdit1Enter(Sender: TObject; begin StatusBar2.Panels[0].Text:=IntToStr(RichEdit1.CaretPos.Y+1+'行'+inttostr(RichEdit1.CaretPos.X+1+'列' end; end.。