unit UMenu;

interface
uses
Windows, Messages, SysUtils, Classes, Graphics,
Controls, Forms, Dialogs, StdCtrls
type
TFMenu=class(TForm)
sStatusBar1: TsStatusBar;
sPanel1: TsPanel;
sPanel2: TsPanel;
sPanel3: TsPanel;
sLabelFX1: TsLabelFX;
sPanel5: TsPanel;
BitMahasiswa: TsBitBtn;
BitPembina: TsBitBtn;
BitSkripsi: TsBitBtn;
BitProfil: TsBitBtn;
BitTool: TsBitBtn;
BitKeluar: TsBitBtn;
sPanel4: TsPanel;
sPanel6: TsPanel;
sPanel7: TsPanel;
sRadioButton1: TsRadioButton;
sRadioButton2: TsRadioButton;
sPanel8: TsPanel;
sRadioButton3: TsRadioButton;
sRadioButton4: TsRadioButton;
sLabelFX2: TsLabelFX;
sLabelFX3: TsLabelFX;
sLabelFX4: TsLabelFX;
BitNilai: TsBitBtn;
sImage1: TsImage;
sLabel1: TsLabel;
sLabel2: TsLabel;
sLabel3: TsLabel;
sLabel4: TsLabel;
ADOProfil: TADOTable;
Timer1: TTimer;
sLabelFX5: TsLabelFX;
ADOProfilNamaProfil: TWideStringField;
ADOProfilNSS: TWideStringField;
ADOProfilNPSN: TWideStringField;
ADOProfilAlamat: TWideStringField;
ADOProfilTelepon: TWideStringField;
ADOProfilFaximil: TWideStringField;
ADOProfilWebsite: TWideStringField;
ADOProfilEmail: TWideStringField;
ADOProfilPimpinan: TWideStringField;
ADOProfilAkreditasi: TWideStringField;
ADOProfilLogo: TWideStringField;
sPanel9: TsPanel;
PopupMenu1: TPopupMenu;
D1: TMenuItem;
N1: TMenuItem;
L1: TMenuItem;
L2: TMenuItem;
L3: TMenuItem;
D2: TMenuItem;

Image1: TsImage;
Label2: TsLabel;
Label1: TsLabel;
procedure BitKeluarClick(Sender : TObject);
procedure FormShow(Sender : TObject);
procedure BitProfilClick(Sender : TObject);
procedure BitMahasiswaClick(Sender : TObject);
procedure Timer1Timer(Sender : TObject);
procedure BitPembinaClick(Sender : TObject);
procedure BitSkripsiClick(Sender : TObject);
procedure BitNilaiClick(Sender : TObject);
procedure BitToolClick(Sender : TObject);
procedure L1Click(Sender : TObject);
procedure L2Click(Sender : TObject);
procedure L3Click(Sender : TObject);
procedure D1Click(Sender : TObject);
procedure _PROC_006117FC(Sender : TObject);
procedure _PROC_00611C49(Sender : TObject);
procedure _PROC_00611F14(Sender : TObject);
procedure _PROC_00611F58(Sender : TObject);
procedure _PROC_00611F60(Sender : TObject);
private
{ Private declarations }
public
{ Public declarations }
end ;
var
FMenu: TFMenu;
{This file is generated by DeDe Ver 3.50.02 Copyright (c) 1999-2002 DaFixer}
implementation
{$R *.DFM}
procedure TFMenu.BitKeluarClick(Sender : TObject);
begin
(*
* Reference to TApplication instance
|
00611A98 A1A0B26100
mov
00611A9D 8B00
mov

eax, dword ptr [$0061B2A0]

eax, [eax]

* Reference to: Forms.TApplication.Terminate(TApplication);

|
00611A9F E86019E6FF
call
00473404
00611AA4 C3
ret
*)
end;
procedure
begin
(*
00611AA8
00611AA9
00611AAB
00611AAD

TFMenu.FormShow(Sender : TObject);
55
8BEC
33C9
51

push
mov
xor
push

ebp
ebp, esp
ecx, ecx
ecx

00611AAE
00611AAF
00611AB0
00611AB1
00611AB2
00611AB3
00611AB4
00611AB5
00611AB6
00611AB7
00611AB8
00611ABA
00611ABC

51
51
51
51
51
51
51
53
56
57
8BF0
33C0
55

push
push
push
push
push
push
push
push
push
push
mov
xor
push

ecx
ecx
ecx
ecx
ecx
ecx
ecx
ebx
esi
edi
esi, eax
eax, eax
ebp

* Possible String Reference to: '&_^[ ]'

|
00611ABD 68491C6100
push
$00611C49
***** TRY
|
00611AC2
00611AC5
00611AC8
00611ACA
00611ACB

64FF30
648920
33C0
55
68DE1B6100

***** TRY
|
00611AD0 64FF30
00611AD3 648920
00611AD6 8D55F8

push
mov
xor
push
push

dword ptr fs:[eax]

fs:[eax], esp
eax, eax
ebp
$00611BDE

push
mov
lea

dword ptr fs:[eax]

fs:[eax], esp
edx, [ebp-$08]

* Reference to TApplication instance

|
00611AD9 A1A0B26100
mov
00611ADE 8B00
mov

eax, dword ptr [$0061B2A0]

eax, [eax]

* Reference to: Forms.TApplication.GetExeName(TApplication):AnsiString;

|
00611AE0 E8F31EE6FF
call
004739D8
00611AE5 8B45F8
mov
eax, [ebp-$08]
00611AE8 8D55FC
lea
edx, [ebp-$04]
* Reference to: SysUtils.ExtractFilePath(AnsiString):AnsiString;
|
00611AEB E8008BDFFF
call
0040A5F0
00611AF0 8D45FC
lea
eax, [ebp-$04]
* Possible String Reference to: 'setting.ini'
|
00611AF3 BA601C6100
mov
edx, $00611C60
* Reference to: System.@LStrCat;
|
00611AF8 E89332DFFF
call
00611AFD 8B4DFC
mov
00611B00 B201
mov
* Reference to class TIniFile
|

00404D90
ecx, [ebp-$04]
dl, $01

00611B02

A164FE4B00

mov

eax, dword ptr [$004BFE64]

* Reference to: IniFiles.TCustomIniFile.Create(TCustomIniFile;boolean;AnsiString

);
|
00611B07 E808E4EAFF
call
004BFF14
00611B0C 8BD8
mov
ebx, eax
00611B0E A178D36100
mov
eax, dword ptr [$0061D378]
00611B13 50
push
eax
00611B14 8D45F4
lea
eax, [ebp-$0C]
00611B17 50
push
eax
* Possible String Reference to: 'FileDB'
|
00611B18 B9741C6100
mov
ecx, $00611C74
* Possible
|
00611B1D
00611B22
00611B24
00611B26
00611B28
00611B2B

String Reference to: 'koneksi'

BA841C6100
8BC3
8B38
FF17
8B55F4
B878D36100

mov
mov
mov
call
mov
mov

edx, $00611C84
eax, ebx
edi, [eax]
dword ptr [edi]
edx, [ebp-$0C]
eax, $0061D378

* Reference to: System.@LStrAsg(void;void;void;void);

|
00611B30 E8E72FDFFF
call
00404B1C
00611B35 833D78D3610000
cmp
dword ptr [$0061D378], +$00
00611B3C 752C
jnz
00611B6A
00611B3E 8D55EC
lea
edx, [ebp-$14]
* Reference to TApplication instance
|
00611B41 A1A0B26100
mov
00611B46 8B00
mov

eax, dword ptr [$0061B2A0]

eax, [eax]

* Reference to: Forms.TApplication.GetExeName(TApplication):AnsiString;

|
00611B48 E88B1EE6FF
call
004739D8
00611B4D 8B45EC
mov
eax, [ebp-$14]
00611B50 8D55F0
lea
edx, [ebp-$10]
* Reference to: SysUtils.ExtractFilePath(AnsiString):AnsiString;
|
00611B53 E8988ADFFF
call
0040A5F0
00611B58 8B55F0
mov
edx, [ebp-$10]
00611B5B B878D36100
mov
eax, $0061D378
* Possible String Reference to: 'DBSkripsi.mdb'
|
00611B60 B9941C6100
mov
ecx, $00611C94
* Reference to: System.@LStrCat3;
|
00611B65 E86A32DFFF
call
00611B6A 8BC3
mov

00404DD4
eax, ebx

* Reference to: System.TObject.Free(TObject);

|

00611B6C

E82720DFFF

call

* Reference to TDMModul instance

|
00611B71 A148B36100
mov
00611B76 8B00
mov

00403B98

eax, dword ptr [$0061B348]

eax, [eax]

* Reference to control TDMModul.Koneksi : TADOConnection

|
00611B78 8B4058
mov
eax, [eax+$58]
00611B7B 33D2
xor
edx, edx
00611B7D 8B08
mov
ecx, [eax]
* Possible reference to virtual method TADOConnection.OFFS_48
|
00611B7F FF5148
call
dword ptr [ecx+$48]
* Possible String Reference to: 'Provider=Microsoft.Jet.OLEDB.4.0;Da
|
ta Source='
|
00611B82 68AC1C6100
push
$00611CAC
00611B87 FF3578D36100
push
dword ptr [$0061D378]
* Possible
|
|
00611B8D
00611B92
00611B95

String Reference to: ';Persist Security Info=False;Jet OL

EDB:Database Password=""'
68E41C6100
8D45E4
BA03000000

push
lea
mov

$00611CE4
eax, [ebp-$1C]
edx, $00000003

* Reference to: System.@LStrCatN;

|
00611B9A E8A932DFFF
call
00611B9F 8B55E4
mov
00611BA2 8D45E8
lea

00404E48
edx, [ebp-$1C]
eax, [ebp-$18]

* Reference to: System.@WStrFromLStr(WideString;WideString;String);

|
00611BA5 E8A637DFFF
call
00405350
00611BAA 8B55E8
mov
edx, [ebp-$18]
* Reference to TDMModul instance
|
00611BAD A148B36100
mov
00611BB2 8B00
mov

eax, dword ptr [$0061B348]

eax, [eax]

* Reference to control TDMModul.Koneksi : TADOConnection

|
00611BB4 8B4058
mov
eax, [eax+$58]
* Reference to: ADODB.TADOConnection.SetConnectionString(TADOConnection;WideStri
ng);
|
00611BB7 E800DBE8FF
call
0049F6BC
* Reference to TDMModul instance
|
00611BBC A148B36100
mov
00611BC1 8B00
mov

eax, dword ptr [$0061B348]

eax, [eax]

* Reference to control TDMModul.Koneksi : TADOConnection

|
00611BC3 8B4058
mov
eax, [eax+$58]
00611BC6 B201
mov
dl, $01
00611BC8 8B08
mov
ecx, [eax]
* Possible reference to virtual method TADOConnection.OFFS_48
|
00611BCA FF5148
call
dword ptr [ecx+$48]
00611BCD 8BC6
mov
eax, esi
* Reference to : TFMenu._PROC_006117FC()
|
00611BCF E828FCFFFF
call
00611BD4 33C0
xor
00611BD6 5A
pop
00611BD7 59
pop
00611BD8 59
pop
00611BD9 648910
mov
00611BDC EB3B
jmp

006117FC
eax, eax
edx
ecx
ecx
fs:[eax], edx
00611C19

* Reference to: System.@HandleOnException;

|
00611BDE E9D525DFFF
jmp
004041B8
00611BE3 0100
add
[eax], eax
00611BE5 0000
add
[eax], al
* Reference to field TFMenu.OFFS_1BEF
|
00611BE7 8C884000EF1B
mov
00611BED 61
popa
00611BEE 0089C36A008B
add
00611BF4 4B
dec
00611BF5 048D
add
00611BF7 45
inc
00611BF8 E0BA
loopn
00611BFA 281D6100E8D1
sub
00611C00 31DF
xor
00611C02 FF8B45E0668B
dec
00611C08 0D3C1D6100
or
00611C0D B201
mov
|
00611C0F

E89491E3FF

word ptr [eax+$1BEF0040], cs

[ecx+$8B006AC3], cl
ebx
al, -$73
ebp
-$46
[$D1E80061], bl
edi, ebx
dword ptr [ebx+$8B66E045]
eax, $00611D3C
dl, $01

call

0044ADA8

* Reference to: System.@DoneExcept;

|
00611C14 E89F28DFFF
call

004044B8

****** END
|
00611C19
00611C1B
00611C1C
00611C1D
00611C1E

eax, eax
edx
ecx
ecx
fs:[eax], edx

33C0
5A
59
59
648910

****** FINALLY
|

xor
pop
pop
pop
mov

* Possible
|
00611C21
00611C26
00611C29

String Reference to: '_^[ ]'

68501C6100
8D45E0
BA02000000

push
lea
mov

$00611C50
eax, [ebp-$20]
edx, $00000002

* Reference to: System.@LStrArrayClr(void;void;Integer);

|
00611C2E E8B92EDFFF
call
00404AEC
00611C33 8D45E8
lea
eax, [ebp-$18]
* Reference to: System.@WStrClr(void;void);
|
00611C36 E89935DFFF
call
004051D4
00611C3B 8D45EC
lea
eax, [ebp-$14]
00611C3E BA05000000
mov
edx, $00000005
* Reference to: System.@LStrArrayClr(void;void;Integer);
|
00611C43 E8A42EDFFF
call
00404AEC
00611C48 C3
ret
* Reference to: System.@HandleFinally;
|
00611C49 E9F226DFFF
jmp
00611C4E EBD6
jmp
****** END
|
00611C50
00611C51
00611C52
00611C53
00611C55
00611C56

5F
5E
5B
8BE5
5D
C3

pop
pop
pop
mov
pop
ret

00404340
00611C26

edi
esi
ebx
esp, ebp
ebp

*)
end;
procedure TFMenu.BitProfilClick(Sender : TObject);
begin
(*
* Reference to TFProfil instance
|
00611D40 8B15B4B36100
mov
00611D46 8B12
mov

edx, [$0061B3B4]
edx, [edx]

* Reference to control TFMenu.sPanel6 : TsPanel

|
00611D48 8B802C030000
mov
eax, [eax+$032C]
|
00611D4E
00611D53
*)
end;

E87DFAFFFF
C3

call
ret

006117D0

procedure TFMenu.BitMahasiswaClick(Sender : TObject);

begin
(*
* Reference to TFMahasiswa instance
|
00611D54 8B150CB56100
mov
00611D5A 8B12
mov

edx, [$0061B50C]
edx, [edx]

* Reference to control TFMenu.sPanel6 : TsPanel

|
00611D5C 8B802C030000
mov
eax, [eax+$032C]
|
00611D62
00611D67

E869FAFFFF
C3

call
ret

006117D0

*)
end;
procedure
begin
(*
00611D68
00611D69
00611D6B
00611D6D
00611D6E
00611D70
00611D72
00611D73

TFMenu.Timer1Timer(Sender : TObject);
55
8BEC
6A00
53
8BD8
33C0
55
68201E6100

***** TRY
|
00611D78 64FF30
00611D7B 648920

push
mov
push
push
mov
xor
push
push

ebp
ebp, esp
$00
ebx
ebx, eax
eax, eax
ebp
$00611E20

push
mov

dword ptr fs:[eax]

fs:[eax], esp

* Reference to: SysUtils.Now:TDateTime;

|
00611D7E E8B9A3DFFF
call
00611D83 83C4F8
add
00611D86 DD1C24
fstp
00611D89 9B
wait
00611D8A 8D55FC
lea

0040C13C
esp, -$08
qword ptr [esp]
edx, [ebp-$04]

* Possible String Reference to: 'dddd, dd MMMM yyyy'

|
00611D8D B8341E6100
mov
eax, $00611E34
|
00611D92
00611D97

E84DB0DFFF
8B55FC

call
mov

0040CDE4
edx, [ebp-$04]

* Reference to control TFMenu.sLabelFX5 : TsLabelFX

|
00611D9A 8B8374030000
mov
eax, [ebx+$0374]
* Reference to: Controls.TControl.SetText(TControl;TCaption);
|
00611DA0 E86F05E4FF
call
00452314

* Reference to control TFMenu.Label1 : TsLabel

|
00611DA5 8B93CC030000
mov
edx, [ebx+$03CC]
* Reference to field TsLabel.OFFS_0057
|
00611DAB 8A4257
mov
00611DAE 3C01
cmp
00611DB0 7535
jnz
00611DB2 3C01
cmp
00611DB4 7531
jnz

al, byte ptr [edx+$57]

al, $01
00611DE7
al, $01
00611DE7

* Reference to control TFMenu.Image1 : TsImage

|
00611DB6 8B83C4030000
mov
eax, [ebx+$03C4]
* Reference to field TsImage.OFFS_0057
|
00611DBC 80785701
cmp
00611DC0 7525
jnz
00611DC2 8BC2
mov
00611DC4 33D2
xor

byte ptr [eax+$57], $01

00611DE7
eax, edx
edx, edx

* Reference to: Controls.TControl.SetVisible(TControl;Boolean);

|
00611DC6 E83904E4FF
call
00452204
00611DCB 33D2
xor
edx, edx
* Reference to control TFMenu.Label2 : TsLabel
|
00611DCD 8B83C8030000
mov
eax, [ebx+$03C8]
* Reference to: Controls.TControl.SetVisible(TControl;Boolean);
|
00611DD3 E82C04E4FF
call
00452204
00611DD8 33D2
xor
edx, edx
* Reference to control TFMenu.Image1 : TsImage
|
00611DDA 8B83C4030000
mov
eax, [ebx+$03C4]
* Reference to: Controls.TControl.SetVisible(TControl;Boolean);
|
00611DE0 E81F04E4FF
call
00452204
00611DE5 EB23
jmp
00611E0A
00611DE7 8BC2
mov
eax, edx
00611DE9 B201
mov
dl, $01
* Reference to: Controls.TControl.SetVisible(TControl;Boolean);
|
00611DEB E81404E4FF
call
00452204
00611DF0 B201
mov
dl, $01
* Reference to control TFMenu.Label2 : TsLabel
|
00611DF2 8B83C8030000
mov
eax, [ebx+$03C8]
* Reference to: Controls.TControl.SetVisible(TControl;Boolean);
|

00611DF8
00611DFD

E80704E4FF
B201

call
mov

00452204
dl, $01

* Reference to control TFMenu.Image1 : TsImage

|
00611DFF 8B83C4030000
mov
eax, [ebx+$03C4]
* Reference to: Controls.TControl.SetVisible(TControl;Boolean);
|
00611E05 E8FA03E4FF
call
00452204
00611E0A 33C0
xor
eax, eax
00611E0C 5A
pop
edx
00611E0D 59
pop
ecx
00611E0E 59
pop
ecx
00611E0F 648910
mov
fs:[eax], edx
****** FINALLY
|
* Possible String Reference to: '[Y]'
|
00611E12 68271E6100
push
00611E17 8D45FC
lea

$00611E27
eax, [ebp-$04]

* Reference to: System.@LStrClr(void;void);

|
00611E1A E8A92CDFFF
call
00404AC8
00611E1F C3
ret
* Reference to: System.@HandleFinally;
|
00611E20 E91B25DFFF
jmp
00611E25 EBF0
jmp
****** END
|
00611E27
00611E28
00611E29
00611E2A

5B
59
5D
C3

pop
pop
pop
ret

00404340
00611E17

ebx
ecx
ebp

*)
end;
procedure TFMenu.BitPembinaClick(Sender : TObject);
begin
(*
* Reference to TFPembina instance
|
00611E48 8B15D8B36100
mov
00611E4E 8B12
mov

edx, [$0061B3D8]
edx, [edx]

* Reference to control TFMenu.sPanel6 : TsPanel

|
00611E50 8B802C030000
mov
eax, [eax+$032C]
|
00611E56

E875F9FFFF

call

006117D0

00611E5B

C3

ret

*)
end;
procedure TFMenu.BitSkripsiClick(Sender : TObject);
begin
(*
* Reference to TFBimbingan instance
|
00611E5C 8B1540B06100
mov
00611E62 8B12
mov

edx, [$0061B040]
edx, [edx]

* Reference to control TFMenu.sPanel6 : TsPanel

|
00611E64 8B802C030000
mov
eax, [eax+$032C]
|
00611E6A
00611E6F

E861F9FFFF
C3

call
ret

006117D0

*)
end;
procedure TFMenu.BitNilaiClick(Sender : TObject);
begin
(*
* Reference to TFPenilaian instance
|
00611E70 8B1578AF6100
mov
00611E76 8B12
mov

edx, [$0061AF78]
edx, [edx]

* Reference to control TFMenu.sPanel6 : TsPanel

|
00611E78 8B802C030000
mov
eax, [eax+$032C]
|
00611E7E
00611E83

E84DF9FFFF
C3

call
ret

006117D0

*)
end;
procedure
begin
(*
00611E84
00611E85
00611E86
00611E89
00611E8B

TFMenu.BitToolClick(Sender : TObject);
53
56
83C4F0
8BD8
8D4C2408

push
push
add
mov
lea

ebx
esi
esp, -$10
ebx, eax
ecx, [esp+$08]

* Reference to control TFMenu.BitTool : TsBitBtn

|
00611E8F 8BB320030000
mov
esi, [ebx+$0320]
* Reference to field TsBitBtn.OFFS_004C
|

00611E95
00611E98

8B464C
33D2

mov
xor

eax, [esi+$4C]
edx, edx

* Reference to: AdaptReq.TActionFieldValuesImpl.ValueOfField(TActionFieldValuesI

mpl;System.AnsiString):IActionFieldValue;
|
00611E9A E895BEE0FF
call
0041DD34
00611E9F 8D542408
lea
edx, [esp+$08]
00611EA3 8BCC
mov
ecx, esp
00611EA5 8BC6
mov
eax, esi
* Reference to: Controls.TControl.ClientToScreen(TControl;Windows.TPoint;Windows
.TPoint):Windows.TPoint;
|
00611EA7 E850FFE3FF
call
00451DFC
00611EAC 8B4C2404
mov
ecx, [esp+$04]
00611EB0 BA99000000
mov
edx, $00000099
* Reference to control TFMenu.PopupMenu1 : TPopupMenu
|
00611EB5 8B83A8030000
mov
eax, [ebx+$03A8]
00611EBB 8B18
mov
ebx, [eax]
* Reference to method TPopupMenu.Popup(Integer,Integer)
|
00611EBD FF5340
call
dword ptr [ebx+$40]
00611EC0 83C410
add
esp, +$10
00611EC3 5E
pop
esi
00611EC4 5B
pop
ebx
00611EC5 C3
ret
*)
end;
procedure TFMenu.L1Click(Sender : TObject);
begin
(*
* Reference to TFLapGroupBimbingan instance
|
00611EC8 8B1518B56100
mov
edx, [$0061B518]
00611ECE 8B12
mov
edx, [edx]
* Reference to control TFMenu.sPanel6 : TsPanel
|
00611ED0 8B802C030000
mov
eax, [eax+$032C]
|
00611ED6
00611EDB

E8F5F8FFFF
C3

call
ret

006117D0

*)
end;
procedure TFMenu.L2Click(Sender : TObject);
begin
(*
* Reference to TFLapBimbingan instance
|

00611EDC
00611EE2

8B1594AE6100
8B12

mov
mov

edx, [$0061AE94]
edx, [edx]

* Reference to control TFMenu.sPanel6 : TsPanel

|
00611EE4 8B802C030000
mov
eax, [eax+$032C]
|
00611EEA
00611EEF

E8E1F8FFFF
C3

call
ret

006117D0

*)
end;
procedure TFMenu.L3Click(Sender : TObject);
begin
(*
* Reference to TFLapSkripsi instance
|
00611EF0 8B1594B16100
mov
00611EF6 8B12
mov

edx, [$0061B194]
edx, [edx]

* Reference to control TFMenu.sPanel6 : TsPanel

|
00611EF8 8B802C030000
mov
eax, [eax+$032C]
|
00611EFE
00611F03

E8CDF8FFFF
C3

call
ret

006117D0

*)
end;
procedure TFMenu.D1Click(Sender : TObject);
begin
(*
* Reference to TFDatabase instance
|
00611F04 A190AE6100
mov
00611F09 8B00
mov
00611F0B 8B10
mov

eax, dword ptr [$0061AE90]

eax, [eax]
edx, [eax]

* Reference to method TFDatabase.ShowModal()

|
00611F0D FF92EC000000
call
dword ptr [edx+$00EC]
00611F13 C3
ret
*)
end;
procedure
begin
(*
006117FC
006117FD
006117FF
00611804
00611806

TFMenu._PROC_006117FC(Sender : TObject);
55
8BEC
B909000000
6A00
6A00

push
mov
mov
push
push

ebp
ebp, esp
ecx, $00000009
$00
$00

00611808
00611809
0061180B
0061180C
0061180E
00611810
00611811

49
75F9
53
8BD8
33C0
55
68241A6100

***** TRY
|
00611816 64FF30
00611819 648920

dec
jnz
push
mov
xor
push
push

ecx
00611804
ebx
ebx, eax
eax, eax
ebp
$00611A24

push
mov

dword ptr fs:[eax]

fs:[eax], esp

* Reference to control TFMenu.ADOProfil : TADOTable

|
0061181C 8B836C030000
mov
eax, [ebx+$036C]
* Reference to: DB.TDataSet.Close(TDataSet);
|
00611822 E89506E8FF
call
00491EBC
* Reference to control TFMenu.ADOProfil : TADOTable
|
00611827 8B836C030000
mov
eax, [ebx+$036C]
* Reference to: DB.TDataSet.Open(TDataSet);
|
0061182D E87E06E8FF
call
00491EB0
00611832 8D55F8
lea
edx, [ebp-$08]
* Reference to TApplication instance
|
00611835 A1A0B26100
mov
0061183A 8B00
mov

eax, dword ptr [$0061B2A0]

eax, [eax]

* Reference to: Forms.TApplication.GetExeName(TApplication):AnsiString;

|
0061183C E89721E6FF
call
004739D8
00611841 8B45F8
mov
eax, [ebp-$08]
00611844 8D55FC
lea
edx, [ebp-$04]
* Reference to: SysUtils.ExtractFilePath(AnsiString):AnsiString;
|
00611847 E8A48DDFFF
call
0040A5F0
0061184C FF75FC
push
dword ptr [ebp-$04]
0061184F 8D55F4
lea
edx, [ebp-$0C]
* Possible String Reference to: '\Gambar'
|
00611852 B8381A6100
mov
eax, $00611A38
* Reference to: SysUtils.ExtractFileName(AnsiString):AnsiString;
|
00611857 E8C88DDFFF
call
0040A624
0061185C FF75F4
push
dword ptr [ebp-$0C]
0061185F 68481A6100
push
$00611A48
00611864 B874D36100
mov
eax, $0061D374
00611869 BA03000000
mov
edx, $00000003
* Reference to: System.@LStrCatN;

|
0061186E
00611873

E8D535DFFF
8D55EC

call
lea

00404E48
edx, [ebp-$14]

* Reference to control TFMenu.ADOProfilNamaProfil : TWideStringField

|
00611876 8B8378030000
mov
eax, [ebx+$0378]
* Reference to: DB.TWideStringField.GetAsWideString(TWideStringField):WideString
;
|
0061187C E8DB84E7FF
call
00489D5C
00611881 8B55EC
mov
edx, [ebp-$14]
00611884 8D45F0
lea
eax, [ebp-$10]
* Reference to: System.@LStrFromWStr(String;String;WideString);
|
00611887 E8C434DFFF
call
00404D50
0061188C 8B55F0
mov
edx, [ebp-$10]
* Reference to control TFMenu.sLabel1 : TsLabel
|
0061188F 8B835C030000
mov
eax, [ebx+$035C]
* Reference to: Controls.TControl.SetText(TControl;TCaption);
|
00611895 E87A0AE4FF
call
00452314
0061189A 8D55E4
lea
edx, [ebp-$1C]
* Reference to control TFMenu.ADOProfilAlamat : TWideStringField
|
0061189D 8B8384030000
mov
eax, [ebx+$0384]
* Reference to: DB.TWideStringField.GetAsWideString(TWideStringField):WideString
;
|
006118A3 E8B484E7FF
call
00489D5C
006118A8 8B55E4
mov
edx, [ebp-$1C]
006118AB 8D45E8
lea
eax, [ebp-$18]
* Reference to: System.@LStrFromWStr(String;String;WideString);
|
006118AE E89D34DFFF
call
00404D50
006118B3 8B55E8
mov
edx, [ebp-$18]
* Reference to control TFMenu.sLabel2 : TsLabel
|
006118B6 8B8360030000
mov
eax, [ebx+$0360]
* Reference to: Controls.TControl.SetText(TControl;TCaption);
|
006118BC E8530AE4FF
call
00452314
006118C1 68501A6100
push
$00611A50
006118C6 8D55D8
lea
edx, [ebp-$28]
* Reference to control TFMenu.ADOProfilTelepon : TWideStringField
|
006118C9 8B8388030000
mov
eax, [ebx+$0388]
* Reference to: DB.TWideStringField.GetAsWideString(TWideStringField):WideString

;
|
006118CF
006118D4
006118D7
006118DC

E88884E7FF
FF75D8
686C1A6100
8D55D4

call
push
push
lea

00489D5C
dword ptr [ebp-$28]
$00611A6C
edx, [ebp-$2C]

* Reference to control TFMenu.ADOProfilFaximil : TWideStringField

|
006118DF 8B838C030000
mov
eax, [ebx+$038C]
* Reference to: DB.TWideStringField.GetAsWideString(TWideStringField):WideString
;
|
006118E5 E87284E7FF
call
00489D5C
006118EA FF75D4
push
dword ptr [ebp-$2C]
006118ED 68801A6100
push
$00611A80
006118F2 8D55D0
lea
edx, [ebp-$30]
* Reference to control TFMenu.ADOProfilEmail : TWideStringField
|
006118F5 8B8394030000
mov
eax, [ebx+$0394]
* Reference to: DB.TWideStringField.GetAsWideString(TWideStringField):WideString
;
|
006118FB E85C84E7FF
call
00489D5C
00611900 FF75D0
push
dword ptr [ebp-$30]
00611903 8D45DC
lea
eax, [ebp-$24]
00611906 BA06000000
mov
edx, $00000006
* Reference to: System.@WStrCatN;
|
0061190B E8CC3ADFFF
call
00611910 8B55DC
mov
00611913 8D45E0
lea

004053DC
edx, [ebp-$24]
eax, [ebp-$20]

* Reference to: System.@LStrFromWStr(String;String;WideString);

|
00611916 E83534DFFF
call
00404D50
0061191B 8B55E0
mov
edx, [ebp-$20]
* Reference to control TFMenu.sLabel3 : TsLabel
|
0061191E 8B8364030000
mov
eax, [ebx+$0364]
* Reference to: Controls.TControl.SetText(TControl;TCaption);
|
00611924 E8EB09E4FF
call
00452314
00611929 8D55C8
lea
edx, [ebp-$38]
* Reference to control TFMenu.ADOProfilWebsite : TWideStringField
|
0061192C 8B8390030000
mov
eax, [ebx+$0390]
* Reference to: DB.TWideStringField.GetAsWideString(TWideStringField):WideString
;
|
00611932 E82584E7FF
call
00489D5C
00611937 8B55C8
mov
edx, [ebp-$38]

0061193A

8D45CC

lea

eax, [ebp-$34]

* Reference to: System.@LStrFromWStr(String;String;WideString);

|
0061193D E80E34DFFF
call
00404D50
00611942 8B55CC
mov
edx, [ebp-$34]
* Reference to control TFMenu.sLabel4 : TsLabel
|
00611945 8B8368030000
mov
eax, [ebx+$0368]
* Reference to: Controls.TControl.SetText(TControl;TCaption);
|
0061194B E8C409E4FF
call
00452314
00611950 8D55C4
lea
edx, [ebp-$3C]
* Reference to control TFMenu.ADOProfilLogo : TWideStringField
|
00611953 8B83A0030000
mov
eax, [ebx+$03A0]
* Reference to: DB.TWideStringField.GetAsWideString(TWideStringField):WideString
;
|
00611959 E8FE83E7FF
call
00489D5C
0061195E 8B45C4
mov
eax, [ebp-$3C]
00611961 33D2
xor
edx, edx
* Reference to: System.@WStrCmp;
|
00611963 E8BC3ADFFF
00611968 7448
0061196A 8D45BC
0061196D 8B1574D36100

call
jz
lea
mov

00405424
006119B2
eax, [ebp-$44]
edx, [$0061D374]

* Reference to: System.@WStrFromLStr(WideString;WideString;String);

|
00611973 E8D839DFFF
call
00405350
00611978 8D45BC
lea
eax, [ebp-$44]
0061197B 50
push
eax
0061197C 8D55B8
lea
edx, [ebp-$48]
* Reference to control TFMenu.ADOProfilLogo : TWideStringField
|
0061197F 8B83A0030000
mov
eax, [ebx+$03A0]
* Reference to: DB.TWideStringField.GetAsWideString(TWideStringField):WideString
;
|
00611985 E8D283E7FF
call
00489D5C
0061198A 8B55B8
mov
edx, [ebp-$48]
0061198D 58
pop
eax
|
0061198E
00611993
00611996

E8E939DFFF
8B55BC
8D45C0

call
mov
lea

0040537C
edx, [ebp-$44]
eax, [ebp-$40]

* Reference to: System.@LStrFromWStr(String;String;WideString);

|
00611999 E8B233DFFF
call
00404D50

0061199E

8B55C0

mov

edx, [ebp-$40]

* Reference to control TFMenu.sImage1 : TsImage

|
006119A1 8B8358030000
mov
eax, [ebx+$0358]
* Reference to field TsImage.OFFS_0168
|
006119A7 8B8068010000
mov

eax, [eax+$0168]

* Reference to: Graphics.TPicture.LoadFromFile(TPicture;AnsiString);

|
006119AD E83ADCE1FF
call
0042F5EC
006119B2 33C0
xor
eax, eax
006119B4 5A
pop
edx
006119B5 59
pop
ecx
006119B6 59
pop
ecx
006119B7 648910
mov
fs:[eax], edx
****** FINALLY
|
006119BA 682B1A6100
006119BF 8D45B8
006119C2 BA02000000

push
lea
mov

$00611A2B
eax, [ebp-$48]
edx, $00000002

* Reference to: System.@WStrArrayClr(void;void;Integer);

|
006119C7 E82038DFFF
call
004051EC
006119CC 8D45C0
lea
eax, [ebp-$40]
* Reference to: System.@LStrClr(void;void);
|
006119CF E8F430DFFF
call
00404AC8
006119D4 8D45C4
lea
eax, [ebp-$3C]
006119D7 BA02000000
mov
edx, $00000002
* Reference to: System.@WStrArrayClr(void;void;Integer);
|
006119DC E80B38DFFF
call
004051EC
006119E1 8D45CC
lea
eax, [ebp-$34]
* Reference to: System.@LStrClr(void;void);
|
006119E4 E8DF30DFFF
call
00404AC8
006119E9 8D45D0
lea
eax, [ebp-$30]
006119EC BA04000000
mov
edx, $00000004
* Reference to: System.@WStrArrayClr(void;void;Integer);
|
006119F1 E8F637DFFF
call
004051EC
006119F6 8D45E0
lea
eax, [ebp-$20]
* Reference to: System.@LStrClr(void;void);
|
006119F9 E8CA30DFFF
call
00404AC8
006119FE 8D45E4
lea
eax, [ebp-$1C]
* Reference to: System.@WStrClr(void;void);
|
00611A01 E8CE37DFFF
call
004051D4

00611A06

8D45E8

lea

eax, [ebp-$18]

* Reference to: System.@LStrClr(void;void);

|
00611A09 E8BA30DFFF
call
00404AC8
00611A0E 8D45EC
lea
eax, [ebp-$14]
* Reference to: System.@WStrClr(void;void);
|
00611A11 E8BE37DFFF
call
004051D4
00611A16 8D45F0
lea
eax, [ebp-$10]
00611A19 BA04000000
mov
edx, $00000004
* Reference to: System.@LStrArrayClr(void;void;Integer);
|
00611A1E E8C930DFFF
call
00404AEC
00611A23 C3
ret
* Reference to: System.@HandleFinally;
|
00611A24 E91729DFFF
jmp
00611A29 EB94
jmp
****** END
|
00611A2B
00611A2C
00611A2E
00611A2F

5B
8BE5
5D
C3

pop
mov
pop
ret

00404340
006119BF

ebx
esp, ebp
ebp

*)
end;
procedure TFMenu._PROC_00611C49(Sender : TObject);
begin
(*
* Reference to: System.@HandleFinally;
|
00611C49 E9F226DFFF
jmp
|
00611C4E
00611C50
00611C51
00611C52
00611C53
00611C55
00611C56

EBD6
5F
5E
5B
8BE5
5D
C3

jmp
pop
pop
pop
mov
pop
ret

00404340
00611C26
edi
esi
ebx
esp, ebp
ebp

*)
end;
procedure
begin
(*
00611F14
00611F15
00611F17

TFMenu._PROC_00611F14(Sender : TObject);
55
8BEC
33C0

push
mov
xor

ebp
ebp, esp
eax, eax

00611F19

55

push

ebp

* Possible String Reference to: '#] -|a'

|
00611F1A 684F1F6100
push
$00611F4F
***** TRY
|
00611F1F
00611F22
00611F25
00611F2B
00611F2D

64FF30
648920
FF057CD36100
7514
B878D36100

push
mov
inc
jnz
mov

dword ptr fs:[eax]

fs:[eax], esp
dword ptr [$0061D37C]
00611F41
eax, $0061D378

* Reference to: System.@LStrClr(void;void);

|
00611F32 E8912BDFFF
call
00404AC8
00611F37 B874D36100
mov
eax, $0061D374
* Reference to: System.@LStrClr(void;void);
|
00611F3C E8872BDFFF
call
00404AC8
00611F41 33C0
xor
eax, eax
00611F43 5A
pop
edx
00611F44 59
pop
ecx
00611F45 59
pop
ecx
00611F46 648910
mov
fs:[eax], edx
****** FINALLY
|
* Possible String Reference to: '] -|a'
|
00611F49 68561F6100
push
$00611F56
00611F4E C3
ret
* Reference to: System.@HandleFinally;
|
00611F4F E9EC23DFFF
jmp
00611F54 EBF8
jmp
****** END
|
00611F56 5D
00611F57 C3

pop
ret

00404340
00611F4E

ebp

*)
end;
procedure TFMenu._PROC_00611F58(Sender : TObject);
begin
(*
00611F58 832D7CD3610001
sub
dword ptr [$0061D37C], +$01
00611F5F C3
ret
*)
end;
procedure TFMenu._PROC_00611F60(Sender : TObject);

begin
(*
00611F60
00611F61
00611F62
00611F63
*)
end;
end.

AC
1F
61
0000

lodsb
pop
popa
add

ds
[eax], al