TFort и форма

← →
Lamok (real) (2001-12-24 21:19) [0]

Всем доброго времени суток !!!
Прошу прощения возможно этот вопрос задавался но я че то не нашел если че дайте сслылку !!!
Вопрос: как создавая новый проект исключить от туда форму и обьект Тформ ?? а все остальное оставить как есть ??
и существенно ли это отразиться на размере егзешника ??

← →
SergVlad (2001-12-24 21:47) [1]

Если очень коротко, то:
1. Использовать API(см пример ниже)
2. Использовать KOL библиотеку от Кладова http://bonanzas.rinet.ru/

//***************************
program MyWindow;

uses Windows, Messages;

{$R *.RES}

var
wClass: TWndClass; // Class struct for main window
hFont, // Handle of Font
hInst, // Handle of program instance
Handle: HWND; // Handle of main window
Msg: TMSG; // Message struct

procedure Resize;
var
RCT:TRect;
begin
GetWindowRect(Handle,RCT);
end;

procedure ShutDown;
begin
DeleteObject(hFont);
UnRegisterClass("Sample Class",hInst);
Halt; //end program
end;

function WindowProc(hWnd,Msg,wParam,lParam:Longint):Longint; stdcall;
begin
Result:=DefWindowProc(hWnd,Msg,wParam,lParam);
case Msg of
WM_SIZE: Resize;
WM_DESTROY: ShutDown;
end;
end;

begin
hInst:=GetModuleHandle(nil); // get the application instance
with wClass do
begin
Style:= CS_PARENTDC;
hIcon:= LoadIcon(hInst,"MAINICON");
lpfnWndProc:= @WindowProc;
hInstance:= hInst;
hbrBackground:= COLOR_BTNFACE+1;
lpszClassName:= "Sample Class";
hCursor:= LoadCursor(0,IDC_ARROW);
end;
RegisterClass(wClass);
Handle:=CreateWindow(
"Sample Class", // Registered Class Name
"My own window", // Title of Window
WS_OVERLAPPEDWINDOW or // Basic Window Style
WS_VISIBLE, // Make it Visible
10, // Left
10, // Top
200, // Width
100, // Height
0, // Parent Window Handle
0, // Handle of Menu
hInst, // Application Instance
nil); // Structure for Creation Data

while(GetMessage(Msg,Handle,0,0))do
begin
TranslateMessage(Msg); // Translate any keyboard Msg"s
DispatchMessage(Msg); // Send it to our WindowProc
end; // for processing.

end.

← →
Tosov (2001-12-25 00:23) [2]

Вопрос: как создавая новый проект исключить от туда форму и обьект Тформ ??
Удаляй форму - Project|Remove file from project.. , Form из uses и поставь галочку здесь : Project|Options..|Linker|Generate Console Application
Размер exe станет намного меньше

а все остальное оставить как есть ??
Это ты про компоненты? Если про них, то не получится. В var Сам добавляй эти компоненты и в начале работы проги создавай их..
var XX: TXXX; begin XX:=TXX.Create(..); end;

← →
Lamok (real) (2001-12-25 23:12) [3]

Спасибо все вроде понял !!!

TFort и форма Найти похожие ветки