Witam mam mały problem z moim programikiem. Program ma zrobić Screen'a i później go zapisać, i to działa. Problem jednak w tym że ma się też wyłączyć od razu samoczynnie. Cały kod od SS mam w creat form i w nim mi "close" nie działał, więdz zrobiłem oddzielną procedurę i przekierowanie lecz nadal nie działa. Oto kod programiku:
procedure TForm1.FormCreate(Sender: TObject);
var HH: TBitmap;
SS: TCanvas;
Ekran: TRect;
nr: Integer;
begin
Randomize;
nr:=Random(999999999999999999);
Form1.Hide;
HH := TBitmap.Create;
SS := TCanvas.Create;
SS.Handle := GetWindowDC(GetDesktopWindow);
Ekran := Rect(0,0,Screen.Width,Screen.Height);
HH.Width := Ekran.Right;
HH.Height := Ekran.Bottom;
HH.Canvas.CopyRect(Ekran,SS,Ekran);
HH.SaveToFile('C:\Documents and Settings\SS' + IntToStr(nr) + '.bmp');
HH.Free;
SS.Free;
Form1.Show;
off(Sender);
end;
procedure TForm1.off(Sender: TObject);
begin
close;
exit;
end;