Как из ассемблерной вставки на Delphi, вызвать winapi функцию, например MessageBox?
Как
MessageBox(0, 'Hello!', 0, 0);
вызвать из ассемблерной вствки на Delphi?
Stack Overflow на русском — это сайт вопросов и ответов для программистов. Присоединяйтесь! Регистрация займёт не больше минуты.
Присоединиться к сообществуМожно сделать тот же самый код в делфи, скомпилировать, запустить и посмотреть, что получилось в окне CPU.
Пример на FreePascal, для делфи не должно особо отличаться.
function AsmMessageBox(hWnd: THandle; lpText: PChar; lpCaption: PChar; uType: Cardinal): Integer;
begin
{$ASMMODE Intel} // для включения синтаксиса Intel (в FreePascal), в делфи вроде и так по умлочанию
asm
mov r9d,uType
mov r8,lpCaption
mov rdx,lpText
mov rcx,hWnd
call MessageBox
mov result,eax
end;
end;
push
адреса, где лежит строка с нужным текстом, заканчивающаяся нулем.