?? unit1.pas
字號:
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, Registry, StdCtrls;
type
TForm1 = class(TForm)
Memo1: TMemo;
procedure FormCreate(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
{$R *.dfm}
procedure TForm1.FormCreate(Sender: TObject);
var
Reg: TRegistry;
FileExt:String;
FileType:String;
MIMEType:String;
ExecName:String;
begin
FileExt:='.test';
FileType:='Test File';
MIMETYPE:='text/plain';
ExecName:=Application.ExeName +' %1';
if ParamCount>0 then
begin
self.Memo1.Lines.LoadFromFile(ParamStr(1));
end
else
begin
Reg := TRegistry.Create;
Reg.RootKey :=HKEY_CLASSES_ROOT;
Reg.OpenKey(FileExt, True);
Reg.WriteString('', FileType);
Reg.WriteString('Content Type', MIMEType);
Reg.OpenKey('shell\open\command',True);
Reg.WriteString('', ExecName);
Reg.CloseKey;
Reg.Free;
end;
end;
end.
?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -