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);
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);