y'''';
SecSize :=512;
if trim(edit3.Text)<>'''''''' then
begin
SecSize :=strtoint(trim(Edit3.Text));
if SecSize<512 then SecSize :=512;
end;
if CheckBox1.Checked then
CopyFile(PChar(FName),PChar(Fname+''''.bak''''),False);
SetOepCode;
AddSection(FName,SecName,SecSize);
Messagebox(Handle, ''''伪装成功!'''', ''''提示'''', MB_OK + MB_ICONINFORMATION);
end;procedure TForm1.SetOepCode;
begin
OEPCODE :=OEPCODEARRAY[RadioGroup1.ItemIndex];
JMPOFF :=JMPOFFARRAY[RadioGroup1.ItemIndex];
end; procedure TForm1.Label4Click(Sender: TObject);
begin
ShellExecute(Handle, ''''open'''',''''http://forum.wrsky.com'''', '''''''', '''''''', SW_SHOWNORMAL);
end; procedure TForm1.Edit3KeyPress(Sender: TObject; var Key: Char);
begin
if not (key in [''''0''''..''''9'''',#8,#13]) then
begin
key :=#0;
end;
end; end.
上一页 [1] [2] [3] [4] |
