Delphi相談室(中級者以上)その12
■ このスレッドは過去ログ倉庫に格納されています
0068デフォルトの名無しさん
NGNGvar result Result: System.AnsiString; Text: array[$0..$FFF] of System.Char; Len: System.Integer;
begin
| PUSH EBX
| PUSH ESI
| PUSH EDI
| ADD ESP,$FFFFF004
| PUSH EAX
| MOV EDI,ECX | MOV ESI,EDX
| MOV EBX,EAX | MOV EAX,ESP
| PUSH EAX | PUSH ESI
| PUSH $00000148
| MOV EAX,DWORD PTR [EBX+12]
| CALL TWinControl.GetHandle{0xF0}
| PUSH EAX
| CALL SendMessage{0x190}
| CMP EAX,-1
| JNE +2; (0x2E)
| XOR EAX,EAX
| MOV EDX,ESP
| MOV ECX,EDI
| XCHG EAX,ECX
| CALL @LStrFromPCharLen{0x2B6}
| ADD ESP,$00001000
| POP EDI
| POP ESI
| POP EBX
| RET NEAR
end;
■ このスレッドは過去ログ倉庫に格納されています