[cpp]unit Settings;

interface

uses
Windows, Messages, SysUtils, Classes, Graphics,
Controls, Forms, Dialogs, StdCtrls
type
TfmSettings=class(TForm)
bnSave: TButton;
bnCancel: TButton;
gbPasswords: TGroupBox;
cbSaveServerPasswords: TCheckBox;
cbSaveRconPasswords: TCheckBox;
edInstallLoc: TEdit;
Label1: TLabel;
sbBrowse: TSpeedButton;
procedure bnSaveClick(Sender : TObject);
procedure bnCancelClick(Sender : TObject);
procedure FormCreate(Sender : TObject);
procedure sbBrowseClick(Sender : TObject);
private
{ Private declarations }
public
{ Public declarations }
end ;

var
fmSettings: TfmSettings;


implementation

{$R *.DFM}

procedure TfmSettings.bnSaveClick(Sender : TObject);
begin
(*
004CC914 55 push ebp
004CC915 8BEC mov ebp, esp
004CC917 83C4F4 add esp, -$0C
004CC91A 8955F4 mov [ebp-$0C], edx
004CC91D 8945FC mov [ebp-$04], eax
004CC920 B201 mov dl, $01

* Reference to class TRegistry
|
004CC922 A118BC4300 mov eax, dword ptr [$0043BC18]

|
004CC927 E8ECF3F6FF call 0043BD18
004CC92C 8945F8 mov [ebp-$08], eax
004CC92F BA01000080 mov edx, $80000001
004CC934 8B45F8 mov eax, [ebp-$08]

|
004CC937 E87CF4F6FF call 0043BDB8
004CC93C B101 mov cl, $01

* Possible String Reference to: 'SOFTWARE\SAMP'
|
004CC93E BAB0C94C00 mov edx, $004CC9B0
004CC943 8B45F8 mov eax, [ebp-$08]

|
004CC946 E8D1F4F6FF call 0043BE1C
004CC94B 8B45FC mov eax, [ebp-$04]

* Reference to control TfmSettings.cbSaveServerPasswords : TCheckBox
|
004CC94E 8B8004030000 mov eax, [eax+$0304]
004CC954 8B10 mov edx, [eax]

* Possible reference to virtual method TCheckBox.OFFS_00C8
|
004CC956 FF92C8000000 call dword ptr [edx+$00C8]
004CC95C 8BC8 mov ecx, eax

* Possible String Reference to: 'SaveServPasses'
|
004CC95E BAC8C94C00 mov edx, $004CC9C8
004CC963 8B45F8 mov eax, [ebp-$08]

|
004CC966 E8EDF8F6FF call 0043C258
004CC96B 8B45FC mov eax, [ebp-$04]

* Reference to control TfmSettings.cbSaveRconPasswords : TCheckBox
|
004CC96E 8B8008030000 mov eax, [eax+$0308]
004CC974 8B10 mov edx, [eax]

* Possible reference to virtual method TCheckBox.OFFS_00C8
|
004CC976 FF92C8000000 call dword ptr [edx+$00C8]
004CC97C 8BC8 mov ecx, eax

* Possible String Reference to: 'SaveRconPasses'
|
004CC97E BAE0C94C00 mov edx, $004CC9E0
004CC983 8B45F8 mov eax, [ebp-$08]

|
004CC986 E8CDF8F6FF call 0043C258
004CC98B 8B45F8 mov eax, [ebp-$08]

|
004CC98E E8F5F3F6FF call 0043BD88
004CC993 8B45F8 mov eax, [ebp-$08]

|
004CC996 E8816FF3FF call 0040391C
004CC99B 8B45FC mov eax, [ebp-$04]

* Reference to : TApplication._PROC_00473A00()
|
004CC99E E85D70FAFF call 00473A00
004CC9A3 8BE5 mov esp, ebp
004CC9A5 5D pop ebp
004CC9A6 C3 ret

*)
end;

procedure TfmSettings.bnCancelClick(Sender : TObject);
begin
(*
004CC9F0 55 push ebp
004CC9F1 8BEC mov ebp, esp
004CC9F3 83C4F8 add esp, -$08
004CC9F6 8955F8 mov [ebp-$08], edx
004CC9F9 8945FC mov [ebp-$04], eax
004CC9FC 8B45FC mov eax, [ebp-$04]

* Reference to : TApplication._PROC_00473A00()
|
004CC9FF E8FC6FFAFF call 00473A00
004CCA04 59 pop ecx
004CCA05 59 pop ecx
004CCA06 5D pop ebp
004CCA07 C3 ret

*)
end;

procedure TfmSettings.FormCreate(Sender : TObject);
begin
(*
004CCA08 55 push ebp
004CCA09 8BEC mov ebp, esp
004CCA0B 83C4F0 add esp, -$10
004CCA0E 33C9 xor ecx, ecx
004CCA10 894DF0 mov [ebp-$10], ecx
004CCA13 8955F4 mov [ebp-$0C], edx
004CCA16 8945FC mov [ebp-$04], eax
004CCA19 33C0 xor eax, eax
004CCA1B 55 push ebp

* Possible String Reference to: 'é±uóÿëð‹å]Ã'
|
004CCA1C 68FACA4C00 push $004CCAFA

***** TRY
|
004CCA21 64FF30 push dword ptr fs:[eax]
004CCA24 648920 mov fs:[eax], esp
004CCA27 B201 mov dl, $01

* Reference to class TRegistry
|
004CCA29 A118BC4300 mov eax, dword ptr [$0043BC18]

|
004CCA2E E8E5F2F6FF call 0043BD18
004CCA33 8945F8 mov [ebp-$08], eax
004CCA36 BA01000080 mov edx, $80000001
004CCA3B 8B45F8 mov eax, [ebp-$08]

|
004CCA3E E875F3F6FF call 0043BDB8
004CCA43 B101 mov cl, $01

* Possible String Reference to: 'SOFTWARE\SAMP'
|
004CCA45 BA10CB4C00 mov edx, $004CCB10
004CCA4A 8B45F8 mov eax, [ebp-$08]

|
004CCA4D E8CAF3F6FF call 0043BE1C

* Possible String Reference to: 'SaveServPasses'
|
004CCA52 BA28CB4C00 mov edx, $004CCB28
004CCA57 8B45F8 mov eax, [ebp-$08]

|
004CCA5A E8F9F8F6FF call 0043C358
004CCA5F 84C0 test al, al
004CCA61 7420 jz 004CCA83

* Possible String Reference to: 'SaveServPasses'
|
004CCA63 BA28CB4C00 mov edx, $004CCB28
004CCA68 8B45F8 mov eax, [ebp-$08]

|
004CCA6B E8F4F7F6FF call 0043C264
004CCA70 8BD0 mov edx, eax
004CCA72 8B45FC mov eax, [ebp-$04]

* Reference to control TfmSettings.cbSaveServerPasswords : TCheckBox
|
004CCA75 8B8004030000 mov eax, [eax+$0304]
004CCA7B 8B08 mov ecx, [eax]

* Possible reference to virtual method TCheckBox.OFFS_00CC
|
004CCA7D FF91CC000000 call dword ptr [ecx+$00CC]

* Possible String Reference to: 'SaveRconPasses'
|
004CCA83 BA40CB4C00 mov edx, $004CCB40
004CCA88 8B45F8 mov eax, [ebp-$08]

|
004CCA8B E8C8F8F6FF call 0043C358
004CCA90 84C0 test al, al
004CCA92 7420 jz 004CCAB4

* Possible String Reference to: 'SaveRconPasses'
|
004CCA94 BA40CB4C00 mov edx, $004CCB40
004CCA99 8B45F8 mov eax, [ebp-$08]

|
004CCA9C E8C3F7F6FF call 0043C264
004CCAA1 8BD0 mov edx, eax
004CCAA3 8B45FC mov eax, [ebp-$04]

* Reference to control TfmSettings.cbSaveRconPasswords : TCheckBox
|
004CCAA6 8B8008030000 mov eax, [eax+$0308]
004CCAAC 8B08 mov ecx, [eax]

* Possible reference to virtual method TCheckBox.OFFS_00CC
|
004CCAAE FF91CC000000 call dword ptr [ecx+$00CC]
004CCAB4 8B45F8 mov eax, [ebp-$08]

|
004CCAB7 E8CCF2F6FF call 0043BD88
004CCABC 8B45F8 mov eax, [ebp-$08]

|
004CCABF E8586EF3FF call 0040391C
004CCAC4 8D55F0 lea edx, [ebp-$10]

* Reference to pointer to GlobalVar_004F0084
|
004CCAC7 A180DB4E00 mov eax, dword ptr [$004EDB80]
004CCACC 8B00 mov eax, [eax]

|
004CCACE E861C9F3FF call 00409434
004CCAD3 8B55F0 mov edx, [ebp-$10]
004CCAD6 8B45FC mov eax, [ebp-$04]

* Reference to control TfmSettings.edInstallLoc : TEdit
|
004CCAD9 8B800C030000 mov eax, [eax+$030C]

|
004CCADF E8A0A8F8FF call 00457384
004CCAE4 33C0 xor eax, eax
004CCAE6 5A pop edx
004CCAE7 59 pop ecx
004CCAE8 59 pop ecx
004CCAE9 648910 mov fs:[eax], edx

****** FINALLY
|

* Possible String Reference to: '‹å]Ã'
|
004CCAEC 6801CB4C00 push $004CCB01
004CCAF1 8D45F0 lea eax, [ebp-$10]

|
004CCAF4 E8377CF3FF call 00404730
004CCAF9 C3 ret


|
004CCAFA E9B175F3FF jmp 004040B0
004CCAFF EBF0 jmp 004CCAF1

****** END
|
004CCB01 8BE5 mov esp, ebp
004CCB03 5D pop ebp
004CCB04 C3 ret

*)
end;

procedure TfmSettings.sbBrowseClick(Sender : TObject);
begin
(*
004CCB50 55 push ebp
004CCB51 8BEC mov ebp, esp
004CCB53 83C4F4 add esp, -$0C
004CCB56 33C9 xor ecx, ecx
004CCB58 894DF4 mov [ebp-$0C], ecx
004CCB5B 8955F8 mov [ebp-$08], edx
004CCB5E 8945FC mov [ebp-$04], eax
004CCB61 33C0 xor eax, eax
004CCB63 55 push ebp

* Possible String Reference to: 'éðtóÿëð‹å]ËÀU‹ì3ÀUhíËL'
|
004CCB64 68BBCB4C00 push $004CCBBB

***** TRY
|
004CCB69 64FF30 push dword ptr fs:[eax]
004CCB6C 648920 mov fs:[eax], esp
004CCB6F 8B45FC mov eax, [ebp-$04]

|
004CCB72 E8D910F9FF call 0045DC50
004CCB77 8BD0 mov edx, eax

* Reference to TfmMain instance
|
004CCB79 A130DC4E00 mov eax, dword ptr [$004EDC30]
004CCB7E 8B00 mov eax, [eax]

* Reference to : TfmMain.GetGTAExe()
|
004CCB80 E8A75C0100 call 004E282C
004CCB85 8D55F4 lea edx, [ebp-$0C]

* Reference to pointer to GlobalVar_004F0084
|
004CCB88 A180DB4E00 mov eax, dword ptr [$004EDB80]
004CCB8D 8B00 mov eax, [eax]

|
004CCB8F E8A0C8F3FF call 00409434
004CCB94 8B55F4 mov edx, [ebp-$0C]
004CCB97 8B45FC mov eax, [ebp-$04]

* Reference to control TfmSettings.edInstallLoc : TEdit
|
004CCB9A 8B800C030000 mov eax, [eax+$030C]

|
004CCBA0 E8DFA7F8FF call 00457384
004CCBA5 33C0 xor eax, eax
004CCBA7 5A pop edx
004CCBA8 59 pop ecx
004CCBA9 59 pop ecx
004CCBAA 648910 mov fs:[eax], edx

****** FINALLY
|

* Possible String Reference to: '‹å]ËÀU‹ì3ÀUhíËL'
|
004CCBAD 68C2CB4C00 push $004CCBC2
004CCBB2 8D45F4 lea eax, [ebp-$0C]

|
004CCBB5 E8767BF3FF call 00404730
004CCBBA C3 ret


|
004CCBBB E9F074F3FF jmp 004040B0
004CCBC0 EBF0 jmp 004CCBB2

****** END
|
004CCBC2 8BE5 mov esp, ebp
004CCBC4 5D pop ebp
004CCBC5 C3 ret

*)
end;

end.[/cpp]