ScreenShot-Programm zu groß

[Cicaro]

Tach!

Mit dem Code

Delphi-Quellcode:

var
 DC:HDC;
 B:TBitmap;

B:=TBitmap.Create;
B.Width:=Screen.Width;
B.Height:=Screen.Height;
DC:=GetWindowDC(GetDesktopWindow);
BitBlt(B.Canvas.Handle,0,0,B.Width,B.Height,DC,0,0,SrcCopy);
B.SaveToFile('D:\ScreenShot.bmp');
B.Free;

kann man ja einen ScreenShot machen. Das mach' ich in einem Programm, das kein Formular besitzt, da ich es einfach und schnell haben wollte.

Allerdings muss man, um die globale Variable Screen abfragen zu können, die Unit Forms usen und, um HDC zu verwenden, die Unit Windows.

Durch die Nutzung dieser Units ist meine EXE mindestens 360 KB groß.
Ist auf irgeneinem Wege möglich das Programm klein zu halten ?

Danke für jede konstruktive Antwort!