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;