unit RecSound;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics,
  Controls, Forms, Dialogs, StdCtrls, ComCtrls, Buttons,
  MPlayer, ExtCtrls;

type
  TRecSoundForm=class(TForm)
    LengthLabel: TLabel;
    ProgressBar1: TProgressBar;
    LengthEdit: TEdit;
    RecordBtn: TBitBtn;
    CloseBtn: TBitBtn;
    MediaPlayer1: TMediaPlayer;
    RecordTimer: TTimer;
    procedure CloseBtnClick(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure FormDestroy(Sender: TObject);
    procedure FormShow(Sender: TObject);
    procedure RecordBtnClick(Sender: TObject);
    procedure RecordTimerTimer(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end ;

var
  RecSoundForm: TRecSoundForm;


{This file is generated by DeDe v2.30 (c) 1999 by DaFixer}

implementation

{$R *.DFM}


procedure TRecSoundForm.CloseBtnClick(Sender: TObject);
begin
{
004B1F3C   55                     push    ebp
004B1F3D   8BEC                   mov     ebp, esp
004B1F3F   83C4F8                 add     esp, -$08
004B1F42   8955F8                 mov     [ebp-$08], edx
004B1F45   8945FC                 mov     [ebp-$04], eax
004B1F48   8B45FC                 mov     eax, [ebp-$04]
004B1F4B   E84892F9FF             call    0044B198
004B1F50   59                     pop     ecx
004B1F51   59                     pop     ecx
004B1F52   5D                     pop     ebp
004B1F53   C3                     ret


}
 end ; 

procedure TRecSoundForm.FormCreate(Sender: TObject);
begin
{
004B2058   55                     push    ebp
004B2059   8BEC                   mov     ebp, esp
004B205B   83C4F0                 add     esp, -$10
004B205E   33C9                   xor     ecx, ecx
004B2060   894DF4                 mov     [ebp-$0C], ecx
004B2063   894DF0                 mov     [ebp-$10], ecx
004B2066   8955F8                 mov     [ebp-$08], edx
004B2069   8945FC                 mov     [ebp-$04], eax
004B206C   33C0                   xor     eax, eax
004B206E   55                     push    ebp
004B206F   6824214B00             push    $004B2124

***** TRY
|
004B2074   64FF30                 push    dword ptr fs:[eax]
004B2077   648920                 mov     fs:[eax], esp
004B207A   8D55F0                 lea     edx, [ebp-$10]
004B207D   33C0                   xor     eax, eax
004B207F   E85409F5FF             call    004029D8
004B2084   8B45F0                 mov     eax, [ebp-$10]
004B2087   8D55F4                 lea     edx, [ebp-$0C]
004B208A   E8F16EF5FF             call    00408F80
004B208F   8B55F4                 mov     edx, [ebp-$0C]
004B2092   8B45FC                 mov     eax, [ebp-$04]
004B2095   05E0020000             add     eax, +$000002E0
004B209A   E8351CF5FF             call    00403CD4
004B209F   B201                   mov     dl, $01
004B20A1   A164064900             mov     eax, dword ptr [$490664]
004B20A6   E84DE6FDFF             call    004906F8
004B20AB   8B55FC                 mov     edx, [ebp-$04]
004B20AE   8982E4020000           mov     [edx+$02E4], eax
004B20B4   33C9                   xor     ecx, ecx
004B20B6   B201                   mov     dl, $01
004B20B8   A14C864800             mov     eax, dword ptr [$48864C]
004B20BD   E89A63FDFF             call    0048845C
004B20C2   8B55FC                 mov     edx, [ebp-$04]
004B20C5   8982E8020000           mov     [edx+$02E8], eax
004B20CB   8B45FC                 mov     eax, [ebp-$04]
004B20CE   8B90E8020000           mov     edx, [eax+$02E8]
004B20D4   8B45FC                 mov     eax, [ebp-$04]
004B20D7   8B80E4020000           mov     eax, [eax+$02E4]
004B20DD   E842E8FDFF             call    00490924
004B20E2   8B45FC                 mov     eax, [ebp-$04]
004B20E5   8B80D4020000           mov     eax, [eax+$02D4]
004B20EB   E890F7FBFF             call    00471880
004B20F0   8BC8                   mov     ecx, eax
004B20F2   A154CC4C00             mov     eax, dword ptr [$4CCC54]
004B20F7   8B00                   mov     eax, [eax]
004B20F9   8B80B4030000           mov     eax, [eax+$03B4]
004B20FF   BA40000000             mov     edx, $00000040
004B2104   E877B8F8FF             call    0043D980
004B2109   33C0                   xor     eax, eax
004B210B   5A                     pop     edx
004B210C   59                     pop     ecx
004B210D   59                     pop     ecx
004B210E   648910                 mov     fs:[eax], edx

****** FINALLY
|
004B2111   682B214B00             push    $004B212B
004B2116   8D45F0                 lea     eax, [ebp-$10]
004B2119   BA02000000             mov     edx, $00000002
004B211E   E8811BF5FF             call    00403CA4
004B2123   C3                     ret

004B2124   E97715F5FF             jmp     004036A0
004B2129   EBEB                   jmp     004B2116

****** END
|
004B212B   8BE5                   mov     esp, ebp
004B212D   5D                     pop     ebp
004B212E   C3                     ret


}
 end ; 

procedure TRecSoundForm.FormDestroy(Sender: TObject);
begin
{
004B2130   55                     push    ebp
004B2131   8BEC                   mov     ebp, esp
004B2133   83C4F8                 add     esp, -$08
004B2136   8955F8                 mov     [ebp-$08], edx
004B2139   8945FC                 mov     [ebp-$04], eax
004B213C   8B45FC                 mov     eax, [ebp-$04]
004B213F   8B80E8020000           mov     eax, [eax+$02E8]
004B2145   E8A20EF5FF             call    00402FEC
004B214A   8B45FC                 mov     eax, [ebp-$04]
004B214D   8B80E4020000           mov     eax, [eax+$02E4]
004B2153   E8940EF5FF             call    00402FEC
004B2158   59                     pop     ecx
004B2159   59                     pop     ecx
004B215A   5D                     pop     ebp
004B215B   C3                     ret


}
 end ; 

procedure TRecSoundForm.FormShow(Sender: TObject);
begin
{
004B2450   55                     push    ebp
004B2451   8BEC                   mov     ebp, esp
004B2453   83C4F8                 add     esp, -$08
004B2456   8955F8                 mov     [ebp-$08], edx
004B2459   8945FC                 mov     [ebp-$04], eax
004B245C   33C9                   xor     ecx, ecx
004B245E   8B55F8                 mov     edx, [ebp-$08]
004B2461   8B45FC                 mov     eax, [ebp-$04]
004B2464   E8EBFEFFFF             call    004B2354
004B2469   59                     pop     ecx
004B246A   59                     pop     ecx
004B246B   5D                     pop     ebp
004B246C   C3                     ret


}
 end ; 

procedure TRecSoundForm.RecordBtnClick(Sender: TObject);
begin
{
004B1F54   55                     push    ebp
004B1F55   8BEC                   mov     ebp, esp
004B1F57   83C4F4                 add     esp, -$0C
004B1F5A   8955F4                 mov     [ebp-$0C], edx
004B1F5D   8945FC                 mov     [ebp-$04], eax
004B1F60   8B45FC                 mov     eax, [ebp-$04]
004B1F63   8B80E4020000           mov     eax, [eax+$02E4]
004B1F69   8B4004                 mov     eax, [eax+$04]
004B1F6C   8B8080000000           mov     eax, [eax+$0080]
004B1F72   80780800               cmp     byte ptr [eax+$08], $00
004B1F76   7423                   jz      004B1F9B
004B1F78   33D2                   xor     edx, edx
004B1F7A   8B45FC                 mov     eax, [ebp-$04]
004B1F7D   8B80C4020000           mov     eax, [eax+$02C4]
004B1F83   E82439FBFF             call    004658AC
004B1F88   8B45FC                 mov     eax, [ebp-$04]
004B1F8B   8B80E4020000           mov     eax, [eax+$02E4]
004B1F91   E84AEAFDFF             call    004909E0
004B1F96   E9B7000000             jmp     004B2052
004B1F9B   33D2                   xor     edx, edx
004B1F9D   8B45FC                 mov     eax, [ebp-$04]
004B1FA0   8B80C4020000           mov     eax, [eax+$02C4]
004B1FA6   E80139FBFF             call    004658AC
004B1FAB   8B45FC                 mov     eax, [ebp-$04]
004B1FAE   8B80E4020000           mov     eax, [eax+$02E4]
004B1FB4   8945F8                 mov     [ebp-$08], eax
004B1FB7   A104CC4C00             mov     eax, dword ptr [$4CCC04]
004B1FBC   8B00                   mov     eax, [eax]
004B1FBE   8B5004                 mov     edx, [eax+$04]
004B1FC1   8B45F8                 mov     eax, [ebp-$08]
004B1FC4   8B4004                 mov     eax, [eax+$04]
004B1FC7   8B08                   mov     ecx, [eax]
004B1FC9   FF5108                 call    dword ptr [ecx+$08]
004B1FCC   8B1504CC4C00           mov     edx, [$4CCC04]
004B1FD2   8B12                   mov     edx, [edx]
004B1FD4   8B45FC                 mov     eax, [ebp-$04]
004B1FD7   8B80E4020000           mov     eax, [eax+$02E4]
004B1FDD   8B08                   mov     ecx, [eax]
004B1FDF   FF11                   call    dword ptr [ecx]
004B1FE1   8B45F8                 mov     eax, [ebp-$08]
004B1FE4   C6402000               mov     byte ptr [eax+$20], $00
004B1FE8   8B45FC                 mov     eax, [ebp-$04]
004B1FEB   8B55F8                 mov     edx, [ebp-$08]
004B1FEE   894270                 mov     [edx+$70], eax
004B1FF1   C7426C5C214B00         mov     dword ptr [edx+$6C], $004B215C
004B1FF8   8B45FC                 mov     eax, [ebp-$04]
004B1FFB   8B55F8                 mov     edx, [ebp-$08]
004B1FFE   894278                 mov     [edx+$78], eax

* Possible String Reference to: "U‹ìƒÄô3É‰Mô‰Uø‰Eü3ÀUhñ"K"
|
004B2001   C742743C224B00         mov     dword ptr [edx+$74], $004B223C
004B2008   8B45FC                 mov     eax, [ebp-$04]
004B200B   8B55F8                 mov     edx, [ebp-$08]
004B200E   898288000000           mov     [edx+$0088], eax
004B2014   C7828400000040234B00   mov     dword ptr [edx+$0084], $004B2340
004B201E   8B45FC                 mov     eax, [ebp-$04]
004B2021   8B55F8                 mov     edx, [ebp-$08]
004B2024   8982E0000000           mov     [edx+$00E0], eax
004B202A   C782DC00000054234B00   mov     dword ptr [edx+$00DC], $004B2354
004B2034   8B45FC                 mov     eax, [ebp-$04]
004B2037   8B55F8                 mov     edx, [ebp-$08]
004B203A   898248010000           mov     [edx+$0148], eax

* Possible String Reference to: "U‹ìƒÄðS3Û‰]ð‰Mø‰Uô‰Eü3ÀUh/$K"
|
004B2040   C782440100007C234B00   mov     dword ptr [edx+$0144], $004B237C
004B204A   8B45F8                 mov     eax, [ebp-$08]
004B204D   E846E9FDFF             call    00490998
004B2052   8BE5                   mov     esp, ebp
004B2054   5D                     pop     ebp
004B2055   C3                     ret


}
 end ; 

procedure TRecSoundForm.RecordTimerTimer(Sender: TObject);
begin
{
004B2470   55                     push    ebp
004B2471   8BEC                   mov     ebp, esp
004B2473   83C4F0                 add     esp, -$10
004B2476   33C9                   xor     ecx, ecx
004B2478   894DF0                 mov     [ebp-$10], ecx
004B247B   8955F4                 mov     [ebp-$0C], edx
004B247E   8945FC                 mov     [ebp-$04], eax
004B2481   33C0                   xor     eax, eax
004B2483   55                     push    ebp
004B2484   68F9244B00             push    $004B24F9

***** TRY
|
004B2489   64FF30                 push    dword ptr fs:[eax]
004B248C   648920                 mov     fs:[eax], esp
004B248F   8D55F0                 lea     edx, [ebp-$10]
004B2492   8B45FC                 mov     eax, [ebp-$04]
004B2495   8B80CC020000           mov     eax, [eax+$02CC]
004B249B   E8E8F4F7FF             call    00431988
004B24A0   8B45F0                 mov     eax, [ebp-$10]
004B24A3   E86868F5FF             call    00408D10
004B24A8   668945FA               mov     [ebp-$06], ax
004B24AC   8B45FC                 mov     eax, [ebp-$04]
004B24AF   8B80C4020000           mov     eax, [eax+$02C4]
004B24B5   E84232FBFF             call    004656FC
004B24BA   0FB755FA               movzx   edx, word ptr [ebp-$06]
004B24BE   3BC2                   cmp     eax, edx
004B24C0   0F9CC2                 setl    dl
004B24C3   8B45FC                 mov     eax, [ebp-$04]
004B24C6   8B80DC020000           mov     eax, [eax+$02DC]
004B24CC   E80303FAFF             call    004527D4
004B24D1   668B55FA               mov     dx, word ptr [ebp-$06]
004B24D5   8B45FC                 mov     eax, [ebp-$04]
004B24D8   8B80C4020000           mov     eax, [eax+$02C4]
004B24DE   E8B1EFFFFF             call    004B1494
004B24E3   33C0                   xor     eax, eax
004B24E5   5A                     pop     edx
004B24E6   59                     pop     ecx
004B24E7   59                     pop     ecx
004B24E8   648910                 mov     fs:[eax], edx

****** FINALLY
|

* Possible String Reference to: "‹å]ÃU‹ì3ÀUh)%K"
|
004B24EB   6800254B00             push    $004B2500
004B24F0   8D45F0                 lea     eax, [ebp-$10]
004B24F3   E88817F5FF             call    00403C80
004B24F8   C3                     ret

004B24F9   E9A211F5FF             jmp     004036A0
004B24FE   EBF0                   jmp     004B24F0

****** END
|
004B2500   8BE5                   mov     esp, ebp
004B2502   5D                     pop     ebp
004B2503   C3                     ret


}
 end ; 

end.
