include vcl h pragma hdrstop USERESProject 1 res

Οπτικός Προγραμματισμός #include <vcl. h> #pragma hdrstop USERES("Project 1. res"); USEFORM("Unit 1. cpp", Form 1); WINAPI Win. Main(HINSTANCE, LPSTR, int) { try { Application->Initialize(); Application->Create. Form(__classid(TForm 1), &Form 1); Application->Run(); /* ξεκινά τον βρόχο μηνυμάτων*/ } /* (message loop) */ catch (Exception &exception) { Application->Show. Exception(&exception); } return 0; }

Οπτικός Προγραμματισμός <? xml version='1. 0' encoding='us-ascii' ? > <!-- C++Builder XML Project --> <PROJECT> <MACROS> <VERSION value="BCB. 05. 03"/> <PROJECT value="Project 1. exe"/> <OBJFILES value="Project 1. obj Unit 1. obj"/> <RESFILES value="Project 1. res"/> <IDLFILES value=""/> <IDLGENFILES value=""/> <DEFFILE value=""/> <RESDEPEN value="$(RESFILES) Unit 1. dfm"/> <LIBFILES value=""/> <LIBRARIES value=""/> <SPARELIBS value="VCL 50. lib"/> <PACKAGES value="VCL 50. bpi VCLX 50. bpi bcbsmp 50. bpi VCLDB 50. bpi VCLADO 50. bpi ibsmp 50. bpi VCLBDE 50. bpi VCLDBX 50. bpi QRPT 50. bpi TEEUI 50. bpi TEEDB 50. bpi TEE 50. bpi DSS 50. bpi TEEQR 50. bpi VCLIB 50. bpi WEBMID 50. bpi bcbie 50. bpi dclocx 50. bpi

Οπτικός Προγραμματισμός Start Length 0001: 00401000 0000028 A 2 0002: 00404000 000000 ED 4 0003: 00404 ED 4 000000058 0004: 00000009 C Name H _TEXT H _DATA H _BSS H _TLS Class CODE DATA BSS TLS Detailed map of segments 0001: 0000014 F C=CODE S=_TEXT G=(none) M=C: CBUILDER 5LIBC 0 W 32. OBJ ACBP=A 9 0001: 0000014 F 00000039 C=CODE S=_TEXT G=(none) M=C: CBUILDER 5VCL 50. BPI|win. pas ACBP=A 9 0001: 00000188 00000038 C=CODE S=_TEXT G=(none) M=C: CBUILDER 5VCL 50. BPI|Messages. pas ACBP=A 9 0001: 000003 D 8 00000238 C=CODE S=_TEXT G=(none) M=C: ASK 1_3PROJECT 1. OBJ ACBP=A 9 0001: 00000610 0000107 C C=CODE S=_TEXT G=(none) M=C: ASK 1_3UNIT 1. OBJ ACBP=A 9 0001: 0000168 C 00000158 C=CODE S=_TEXT G=(none) M=C: ASK 1_3UNIT 2. OBJ ACBP=A 9 …. 0001: 000008 A 0 __fastcall TForm 1: : About. Button. Click(System: : TObject *) 0001: 000008 C 0 __fastcall TForm 1: : Button 1 Click(System: : TObject *) 0001: 00000 A 64 __fastcall TForm 1: : Button 2 Click(System: : TObject *) 0001: 00000 BD 8 __fastcall TForm 1: : Button 3 Click(System: : TObject *) 0001: 00000 D 4 C __fastcall TForm 1: : Button 4 Click(System: : TObject *) 0001: 00000884 __fastcall TForm 1: : Close. Button. Click(System: : TObject *) 0001: 00000718 __fastcall TForm 1: : TForm 1(Classes: : TComponent *) 0001: 00001034 __fastcall TForm 1: : ~TForm 1()