mirror of
https://github.com/cheat-engine/cheat-engine
synced 2026-08-15 02:26:08 -04:00
70 lines
1.5 KiB
ObjectPascal
Executable file
70 lines
1.5 KiB
ObjectPascal
Executable file
unit frmManualStacktraceConfigUnit;
|
|
|
|
{$mode delphi}
|
|
|
|
interface
|
|
|
|
uses
|
|
Classes, SysUtils, FileUtil, Forms, Controls, Graphics, Dialogs, StdCtrls,
|
|
ExtCtrls, betterControls;
|
|
|
|
type
|
|
|
|
{ TfrmManualStacktraceConfig }
|
|
|
|
TfrmManualStacktraceConfig = class(TForm)
|
|
btnCancel: TButton;
|
|
btnOK: TButton;
|
|
cbUseShadow: TCheckBox;
|
|
edtEIP: TEdit;
|
|
edtESP: TEdit;
|
|
edtEBP: TEdit;
|
|
edtShadowOrig: TEdit;
|
|
edtShadowNew: TEdit;
|
|
edtShadowSize: TEdit;
|
|
Label1: TLabel;
|
|
Label2: TLabel;
|
|
Label3: TLabel;
|
|
Label4: TLabel;
|
|
lblEBP: TLabel;
|
|
lblESP: TLabel;
|
|
lblEIP: TLabel;
|
|
Panel1: TPanel;
|
|
procedure btnOKClick(Sender: TObject);
|
|
private
|
|
{ private declarations }
|
|
public
|
|
{ public declarations }
|
|
eip: ptruint;
|
|
esp: ptruint;
|
|
ebp: ptruint;
|
|
useshadow: boolean;
|
|
shadoworig: ptruint;
|
|
shadownew: ptruint;
|
|
shadowsize: integer;
|
|
end;
|
|
|
|
|
|
implementation
|
|
|
|
{$R *.lfm}
|
|
|
|
{ TfrmManualStacktraceConfig }
|
|
|
|
uses symbolhandler;
|
|
|
|
procedure TfrmManualStacktraceConfig.btnOKClick(Sender: TObject);
|
|
begin
|
|
eip:=symhandler.getAddressFromName(edtEIP.text);
|
|
esp:=symhandler.getAddressFromName(edtESP.text);
|
|
ebp:=symhandler.getAddressFromName(edtEBP.text);
|
|
useshadow:=cbUseShadow.checked;
|
|
shadoworig:=symhandler.getAddressFromName(edtShadowOrig.text);
|
|
shadownew:=symhandler.getAddressFromName(edtShadownew.text);
|
|
shadowsize:=strtoint(edtShadowSize.text);
|
|
|
|
modalresult:=mrok;
|
|
end;
|
|
|
|
end.
|
|
|