Thread: Chamando o MessageBox

Função:

procedure MessageBoxEx(msg,title:string;hWnd:THandle);
begin

MessageBoxA(hWnd,pchar(msg),pchar(title),MB_ICONWA RNING);

end;

Chamar:

MessageBoxEx('MENSAGEM','TITULO',APPLICATION.HANDL E);