Kullanıcının Sadece Sizin Programınızı Kullanmasını İsterseniz
Bazen kullanıcının sadece sizin yazdığınız programı kullanmasını isteyebilirsiniz.O zaman aşağıdaki prosedürler ihtiyaçlarınızı karşılayacaktır.
procedure TForm1.Formcreate(Sender: TObject);
var B: LongInt;
begin
SystemParametersInfo(97,word(True),@B,0);
{yukarıdaki satır ctrl-alt-del ve alt-tab tuslarını kapatır}
gizle;
end;
procedure TForm1.FormClose(Sender: TObject);
var B: LongInt;
begin
SystemParametersInfo(97,word(False),@B,0);
goster;
end;
procedure gizle;
var wndHandle: Thandle;
wndClass: array[0..50] of Char;
begin
StrPCopy(@wndclass[0],'Shell_TrayWnd');
wndHandle:= FindWindow(@wndclass[0],nil);
ShowWindow(wndHandle,SW_HIDE);
end;
procedure gizle;
var wndHandle: Thandle;
wndClass: array[0..50] of Char;
begin
StrPCopy(@wndclass[0],'Shell_TrayWnd');
wndHandle:= FindWindow(@wndclass[0],nil);
ShowWindow(wndHandle,SW_RESTORE);
end;
Bazen kullanıcının sadece sizin yazdığınız programı kullanmasını isteyebilirsiniz.O zaman aşağıdaki prosedürler ihtiyaçlarınızı karşılayacaktır.
procedure TForm1.Formcreate(Sender: TObject);
var B: LongInt;
begin
SystemParametersInfo(97,word(True),@B,0);
{yukarıdaki satır ctrl-alt-del ve alt-tab tuslarını kapatır}
gizle;
end;
procedure TForm1.FormClose(Sender: TObject);
var B: LongInt;
begin
SystemParametersInfo(97,word(False),@B,0);
goster;
end;
procedure gizle;
var wndHandle: Thandle;
wndClass: array[0..50] of Char;
begin
StrPCopy(@wndclass[0],'Shell_TrayWnd');
wndHandle:= FindWindow(@wndclass[0],nil);
ShowWindow(wndHandle,SW_HIDE);
end;
procedure gizle;
var wndHandle: Thandle;
wndClass: array[0..50] of Char;
begin
StrPCopy(@wndclass[0],'Shell_TrayWnd');
wndHandle:= FindWindow(@wndclass[0],nil);
ShowWindow(wndHandle,SW_RESTORE);
end;