Эксперем DLPHI ASM Опции

[Shadow]

Привеи а!!!
А как приятно ДАТЬ КОМАНДУ В DELPHI

    Hand:=Form2_base_data_sved.Handle;
    s_Mes:='Sorry!! Am Nop Posobol'+#10#13+
           'vvvvvvvvvvvvvvvv!!';
    s_Tit:='Error Air Lines';


   asm
      push MB_ICONSTOP
      push s_Tit
      push s_Mes
      push Hand
      call MessageBox
   end;

[mj]

а есть смысл так извращатся?

[Shadow]

а есть смысл так извращатся?

можно и API функцией но
КАЙФ не тот

[___ALex___]

так ты пиши тогда на чистом асме и будет тебе вечная нирвана

[Shadow]

запросто

Код

; #########################################################################

     .386
     .model flat, stdcall
     option casemap :none  
; #########################################################################
     clRed equ 15
     include masm32includewindows.inc
     include masm32includeuser32.inc
     include masm32includegdi32.inc
     include masm32includekernel32.inc
     includelib masm32libuser32.lib
     includelib masm32libkernel32.lib
     includelib masm32libgdi32.lib

.DATA
     DT    db "PROBA",0
     Msg         db ' PROBA  '
     hMon          dd ?;      
.Data?;      hMon          dd ?;

   .code

start:;---------------------------
   push NULL
   call GetDC
   mov hMon,EAX;---------------------------
   push 000000000011111111111111b;цвет
   push 400
   push 400
   push hMon
   call SetPixel       ;---------------------------
   push 10
   push 10
   push 40
   push 40
   push hMon
   call Rectangle;---------------------------
   push 111111000000001111111111b
   push hMon
   call SetTextColor;---------------------------
   push 41
   push offset Msg
   push 10
   push 10
   push hMon
   call TextOut;    push 0
   call ExitProcess
end start

единственное пока непогятно посему те4кст не появляется
линию то чертит а текст нет :-/