20. marts 2002 - 15:06
Der er
1 kommentar og
2 løsninger
Program uden form
Hvordan konstrureres et program uden forms eller anden grafik. Programmet skal bankes op i hukommelsen, uden at være refereret på processlinien (skal kun kunne ses ved at være aktivt ved at trykke ctrl+alt+del). Det drejer sig om denne geniale kode, der bare skal køres:
procedure TForm1.Button1Click(Sender: TObject);
var
h : Hwnd;
begin
h := FindWindow(0,'MitProgamDerSkalLukkes');
PostMessage(h,WM_CLOSE,0,0);
end;
20. marts 2002 - 15:30
#2
Prøv at sætte nedestående ind i OnFormCreate
Det gør hele din form gennemsigtig, samtidig med du kan klikke gennem
formen.
Den skjuler og prgrammet fra processlinien.
Sæt evt. form til minimized
var
region1, region2 : hrgn;
begin
region1 := CreateRectRgn(0,0,width,height);
region2 := CreateRectRgn(0,0,form1.Width,form1.Height);
CombineRgn(region1, region1, region2, RGN_DIFF);
SetWindowRgn(handle, region1, true);
ShowWindow (Application.Handle, SW_HIDE);
end;
Stoney