Announcement

**Andreas Kosch** · 08.01.2000, 09:12

Hallo,

das folgende Beispiel f�r eine Win32-Anwendung, die nur auf das Win32-API zugreift (und somit auf die VCL verzichtet) f�hrt zu einer EXE-Gr�sse von 28 kByte (ohne Packages!):
<pre>
program Generic;

{$R GENRES.RES}

uses SysUtils, Windows, Messages;

const
szClassName = 'DelGen'; // Name der Fensterklasse
szTitle = 'Das Grundger�st'; // Fenstertitel

(* WindowProc ist die Fensterprozedur des generischen Fensters.
Es wird nur eine einzige Windows-Botschaft ausgewertet, um
das Programm �ber das Systemmen� schlie�en zu k�nnen. *)

function WindowProc(Window: HWnd; Message : UINT; wParam: WPARAM;
LParam: LPARAM): Longint; stdcall;
begin
Result := 0;
case Message of
wm_Destroy: begin
PostQuitMessage(0); // Programm beenden
Exit;
end;
end;
Result := DefWindowProc(Window, Message, WParam, LParam);
end;

(* Die Procedure WinMain registriert die Fensterklasse und
erzeugt ein sichtbares Hauptfenster f�r das Programm. *)

procedure WinMain;
var
aWindow : HWnd;
WindowClass : TWndClassEx;
Message : TMsg;
begin
// InitApplication
WindowClass.cbSize := SizeOf(TWndClassEx);
WindowClass.Style := CS_HRedraw OR CS_VRedraw;
WindowClass.hInstance := HInstance;
WindowClass.lpfnWndProc := @WindowProc;
WindowClass.cbClsExtra := 0;
WindowClass.cbWndExtra := 0;
WindowClass.hIcon := LoadIcon(hInstance, PChar('BIG'));
WindowClass.hIconSm := LoadImage(hInstance, PChar('SMALL'),
IMAGE_ICON, 16, 16, 0);
WindowClass.hCursor := LoadCursor(0, idc_Arrow);
WindowClass.hbrBackground := COLOR_WINDOW + 1;
WindowClass.lpszMenuName := nil;
WindowClass.lpszClassName := szClassName;
// R�ckgabewert 0 -> Fehlschlag
if RegisterClassEx(WindowClass) = 0 then
Halt(1);
// InitInstance
aWindow := CreateWindow(szClassName, szTitle, WS_OverlappedWindow,
CW_UseDefault, 0, CW_UseDefault, 0,
0, 0, HInstance, nil);
// aWindow = 0 -> Fehlschlag
if aWindow = 0 then
Halt(2);
// Aha - das Fensterhandle ist g�ltig -> zeigt dich !
ShowWindow(aWindow, SW_SHOW);
UpdateWindow(aWindow);
// Message-Loop wartet auf das Programmende
while GetMessage(Message, 0, 0, 0) do
begin
TranslateMessage(Message);
DispatchMessage(Message);
end;
Halt(Message.wParam);
end;

begin
WinMain; // Ein sehr kurzes Hauptprogramm
end.
</pre>

Das Beispiel stammt aus meinem neuen Buch Delphi Win32-L�sungen - dort stelle ich auch komplexere Beispiele vor (Dialoge einbinden etc.). 
Wenn dieser Aufwand nicht in Frage kommt, muss die Delphi-Anwendung mit Packages compiliert werden. In diesem Fall wird die EXE auch klein, allerdings werden zus�tzlich die grossen Runtime-Packages ben�tigt.
&#10

**Patrik Huebner** · 08.01.2000, 14:33

Angenommen ich m�chte noch eine Komponente mit einbinden, reicht es, den Inhalt der PAS-Datei meinem Programm hinzuzuf�gen?

Wie auch immer, dann hei�t es wohl "auf zu amazon.de"... ;-)

Gru�, 
Patri

**Andreas Kosch** · 10.01.2000, 07:52

Hallo,

nein - es gibt hier nur eine Entweder-Oder-L�sung. Sobald auch nur eine einzige VCL-Komponente eingebunden wird, ist es mit den kleinen EXE-Gr�ssen vorbei. In diesem Fall ist es besser, die Anwendung mit Runtime-Packages zu compilieren.

P.S. ....Wie auch immer, dann hei�t es wohl "auf zu amazon.de"... ;-)....: Warum in die Ferne schweifen, das Gute ist doch so nah (d.h. die B�cher sind auch direkt beim Betreiber dieses FORUMs zu haben)

**Patrik Huebner** · 10.01.2000, 18:46

Ich w�rde das Buch "Delphi Win32-L�sungen" ja gerne bestellen doch finde ich es weder bei www.entwickler.com noch bei www.amazon.de ?

**Torsten Grundke** · 10.01.2000, 18:55

Hallo Patrik,

ich geh mal davon aus, dass das Buch in K�rze �ber das Forum zu bestellen sein wird. In der schriftlichen Einladung f�r die Entwickler Tage 2000 lag bereits ein Bestellzettel f�r das neue Buch von Andreas.

Tsch��

Torste

**Patrik Huebner** · 10.01.2000, 19:32

Alles klar, danke!

An Andreas Kosch: Ich habe mir die Option "Mit Runtime-Packages compilieren" angeschaut. Im ersten Moment war ich nat�rlich hoch erfreut, die EXE-Datei war nur 15 KByte gro�. Doch der Preis ist, da� man eine 2 MB-Datei (VCL30.DPL) mitliefern mu�. Ich m�chte eine Art selbst-extrahierendes Archiv programmieren, eine Datei dieser Gr��e w�rde das Aus f�r das Projekt bedeuten!

Das Ganze funktioniert so: Die gezipten Daten werden an die EXE-Datei angeh�ngt, diese kann damit umgehen und auf Wunsch die Daten wieder entpacken. Die EXE-Datei mu� dabei nat�rlich m�glichst klein sein da sonst der Nutzen des Programmes nicht mehr gegeben ist.

Ich brauche nur eine edit-box, ein icon und zwei buttons, das ist Alles.

Wenn Sie noch ein kleines Beispiel hierf�r h�tten w�re ich Ihnen sehr dankbar!

Gru�,
Patrik Huebne

**Andreas Kosch** · 11.01.2000, 13:56

Hallo Patrik,

da kommen bei mir doch wehm�tige Erinnerungen hoch: Mit Turbo Pascal f�r Windows 1.0 ging nur die klassische API-Programmierung, so das alle Dialoge mit dem Borland-Tool Resource Workshop generiert wurden. Daher meine erste Frage: Steht Dir dieses Tool zur Verf�gung (ist mit auf der Delphi 5-CDROM enthalten)?
Wenn nicht, so m�ssen die Anweisungen f�r das Men� sowie f�r das Dialogfenster von Hand geschrieben werden:
<pre>
TESTMENU MENU
{
POPUP "&Datei"
{
MENUITEM "Exit", 101
}

POPUP "&Hilfe"
{
MENUITEM "&Info �ber", 201
}

}

ABOUTBOX DIALOG 10, 18, 194, 119
STYLE DS_MODALFRAME | WS_POPUP | WS_VISIBLE | WS_CAPTION | WS_SYSMENU
CAPTION "Info �ber GENERIC2.DPR"
FONT 8, "MS Sans Serif"
LANGUAGE LANG_NEUTRAL, SUBLANG_NEUTRAL
{
DEFPUSHBUTTON "OK", 1, 12, 96, 50, 14
PUSHBUTTON "Cancel", 2, 72, 96, 50, 14
PUSHBUTTON "Help", 9, 132, 96, 50, 14
LTEXT "Delphi 2.0-Programm nur aus Win32-API-Funktionen", -1, 9, 12, 176, 13
LTEXT "Version 1.0", -1, 76, 28, 42, 8
LTEXT "\xA9 Andreas Kosch 1996", -1, 57, 49, 79, 8
CTEXT "", 99, 8, 66, 180, 20, SS_CENTER | NOT WS_GROUP
}
</pre>
Auch die Anbindung der Eingabefelder/Men�punkte/Button muss im Programm von Hand vorgenommen werden, so das jedes Fenster seine eigene Fensterprozedur erh�lt. Der folgende Teil ist nur f�r die Bearbeitung des OK bzw. Abbrechen-Buttons zust�ndig:
<pre>
function About(Dialog: HWnd; Message, WParam: Word;
LParam: Longint): Bool; stdcall;
begin
Result := True;
case Message of
wm_InitDialog: begin
...
end;
wm_Command : if (LoWord(WParam) = id_Ok) or
(LoWord(WParam) = id_Cancel) then
begin
EndDialog(Dialog, 1);
Exit;
end;
end;
Result := False;
end;
</pre>
Ein Einsteiger wird es ohne die ca. 20 Seiten Beschreibung im Buch schwer haben. Wenn Du jedoch immer noch Interesse hast, schicke mir eine eMail ([email protected]) - ich werden dann das (unkommentierte) Beispielprojekt als eMail an Dich abschicken

Announcement

Kleine EXE-Dateien

Kleine EXE-Dateien

Comment

Comment

Comment

Comment

Comment

Comment

Comment