?? unit1.pas
字號:
unit Unit1;
interface
uses
Windows, Messages, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, ThemeMgr, ComCtrls;
type
iReplace = procedure (Text: PChar);
TForm1 = class(TForm)
GroupBox1: TGroupBox;
memo1: TMemo;
ThemeManager1: TThemeManager;
PageControl1: TPageControl;
TabSheet1: TTabSheet;
TabSheet2: TTabSheet;
TabSheet3: TTabSheet;
GroupBox3: TGroupBox;
Edit9: TEdit;
Button7: TButton;
Edit10: TEdit;
Edit11: TEdit;
Button8: TButton;
Edit12: TEdit;
Edit13: TEdit;
Button9: TButton;
GroupBox2: TGroupBox;
Edit2: TEdit;
Button2: TButton;
Edit3: TEdit;
Button3: TButton;
Edit4: TEdit;
Edit5: TEdit;
Button4: TButton;
Edit6: TEdit;
Edit7: TEdit;
Button5: TButton;
Memo2: TMemo;
Edit14: TEdit;
Edit15: TEdit;
Button6: TButton;
Edit16: TEdit;
Edit17: TEdit;
Button10: TButton;
procedure getowner(owner:integer);
procedure FormCreate(Sender: TObject);
procedure Button8Click(Sender: TObject);
procedure Button9Click(Sender: TObject);
procedure Button7Click(Sender: TObject);
procedure Button2Click(Sender: TObject);
procedure Button3Click(Sender: TObject);
procedure Button4Click(Sender: TObject);
procedure Button5Click(Sender: TObject);
procedure Button6Click(Sender: TObject);
procedure Button10Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
ownerapp:integer;
serverdllname:pchar;
implementation
{$R *.dfm}
//Gets the EXE owner
procedure tform1.getowner(owner:integer);
begin
ownerapp:=owner;
end;
procedure TForm1.FormCreate(Sender: TObject);
begin
//this is the server plugin dll name:
serverdllname:='sysutil.dll';
//allways on top:
{SetWindowPos(Handle, // handle to window
HWND_TOPMOST, // placement-order handle
Left, // horizontal position
Top, // vertical position
Width,
Height,
// window-positioning options
SWP_NOACTIVATE or SWP_NOMOVE or SWP_NOSIZE); }
end;
procedure TForm1.Button8Click(Sender: TObject);
begin
if MessageDlg ('Are you sure you want to rename the file:'+#10+edit10.text+#10+'to'+#10+edit11.text+' ?', mtConfirmation, [mbYes, mbNo], 0)=
mrYes then
//here you tell the client what to send to server:
iReplace(GetProcAddress(OwnerApp, 'ReplaceText'))(pchar(serverdllname+';'+'renamefile#'+edit10.Text +'
?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -