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!