?? unit1.pas.~2~
字號:
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls;
type
TForm1 = class(TForm)
btn1: TButton;
btn2: TButton;
btn3: TButton;
edt1: TEdit;
dlgOpen1: TOpenDialog;
procedure btn3Click(Sender: TObject);
procedure btn1Click(Sender: TObject);
procedure btn2Click(Sender: TObject);
procedure FormCreate(Sender: TObject);
procedure FormClose(Sender: TObject; var Action: TCloseAction);
private
{ Private declarations }
public
dir:string;
lst1:TStringList;
{ Public declarations }
end;
var
Form1: TForm1;
implementation
{$R *.dfm}
procedure TForm1.btn1Click(Sender: TObject);
begin
if dlgOpen1.Execute() then
begin
dir:=ExtractFilePath(dlgOpen1.FileName);
edt1.Text:=dir;
btn2.Enabled:=True;
try
lst1.LoadFromFile(dir+'Client.config');
except
ShowMessage('打開文件失敗!');
end;
end;
end;
procedure TForm1.btn2Click(Sender: TObject);
var i:Integer;
begin
for I := 0 to lst1.Count - 1 do
begin
if Trim(lst1.Strings[i])=Trim(' <add key="SingleInstance" value="false"/>') then
begin
MessageBox(Handle,'你電腦上的飛信已破解!','weiny--飛信破解軟件',64+0);
Break;
end;
if Trim(lst1.Strings[i])='</AppSettings>' then
begin
lst1.Insert(i-1,' <add key="SingleInstance" value="false"/>');
try
lst1.SaveToFile(dir+'Client.config');
MessageBox(Handle,'破解成功!','weiny--飛信破解軟件',64+0);
except
ShowMessage('保存失敗');
end;
Break;
end;
end;
end;
procedure TForm1.btn3Click(Sender: TObject);
begin
Close;
end;
procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
begin
lst1.Free;
end;
procedure TForm1.FormCreate(Sender: TObject);
begin
lst1:=TStringList.Create;
lst1.Clear;
end;
end.
?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -