Автор: Shadow 18.11.2003 1:38
Привеи а!!!
А как приятно ДАТЬ КОМАНДУ В 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 19.11.2003 15:13
а есть смысл так извращатся?
Автор: Shadow 19.11.2003 20:18
Цитата
а есть смысл так извращатся?
можно и API функцией но
КАЙФ не тот
Автор: ___ALex___ 19.11.2003 22:32
так ты пиши тогда на чистом асме и будет тебе вечная нирвана
Автор: Shadow 20.11.2003 18:42
запросто
Код
; #########################################################################
.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кст не появляется
линию то чертит а текст нет :-/