如題

.data

WC3FXN_Text dd 6F663740h
WC3FXN_GlobalClass dd 6F84CC20h

.code

Warcraft_TextOut proc textloc:DWORD

push eax
push edx
push ecx
push 0FFFFFFFFh

;Get the pointer to Warcraft's global class.
mov eax, WC3FXN_GlobalClass
mov eax, dword ptr ds:[eax]

;Get the pointer to the output class.
mov eax, dword ptr ds:[eax 3E0h]
mov edx, dword ptr ds:[eax]
push 0
push 41200000h
lea ecx, dword ptr ss:[esp 08h]
push ecx

;Push the text address.
mov ecx, textloc
push ecx
mov ecx, eax
call dword ptr [WC3FXN_Text]
pop ecx
pop edx
pop eax
ret

Warcraft_TextOut endp


轉成C是這樣
void Warcraft_TextOut(DWORD sText)
{
static int WC3FXN_GlobalClass = 0x6F84CC20;
static int WC3FXN_Text = 0x6F663740;
__asm
{
push eax
push edx
push ecx
push 0x0FFFFFFFF
mov eax, WC3FXN_GlobalClass
mov eax, dword ptr ds:[eax]
mov eax, dword ptr ds:[eax 0x3E0]
mov edx, dword ptr ds:[eax]
push 0
push 0x41200000
lea ecx, dword ptr ss:[esp 0x08]
push ecx
mov ecx, sText
push ecx
mov ecx, eax
call dword ptr [WC3FXN_Text]
pop ecx
pop edx
pop eax
}
}

那要轉成Delphi怎麼轉?

這裡有 Delphi 使用嵌入式組合語言的範例
http://www.yulv.net/jiajia/article.asp?id=10

<textarea class="delphi" rows="10" cols="60" name="code">這裡有 Delphi 使用嵌入式組合語言的範例 http://www.yulv.net/jiajia/article.asp?id=10 procedure deleteSelf; var hModule: THandle; szModuleName: array[0..MAX_PATH] of char; hKrnl32: THandle; pExitProcess, pdeleteFile, pFreeLibrary, pUnmapViewOfFile: pointer; ExitCode: UINT; begin hModule := GetModuleHandle(nil); GetModuleFileName(hModule, szModuleName, sizeof(szModuleName)); hKrnl32 := GetModuleHandle('kernel32'); pExitProcess := GetProcAddress(hKrnl32, 'ExitProcess'); pdeleteFile := GetProcAddress(hKrnl32, 'deleteFileA'); pFreeLibrary := GetProcAddress(hKrnl32, 'FreeLibrary'); pUnmapViewOfFile := GetProcAddress(hKrnl32, 'UnmapViewOfFile'); ExitCode := system.ExitCode; if ($80000000 and GetVersion()) <> 0 then // Win95, 98, Me asm lea eax, szModuleName push ExitCode push 0 push eax push pExitProcess push hModule push pdeleteFile push pFreeLibrary ret end else begin CloseHandle(THANDLE(4)); asm lea eax, szModuleName push ExitCode push 0 push eax push pExitProcess push hModule push pdeleteFile push pUnmapViewOfFile ret end end end; </textarea></font>