Hallo ich wollte mal was basteln, das einfach nur nen befehl ausführt und zwar das hier
Delphi-Quellcode:
procedure DisableTaskMgr(bTF: Boolean);
var
reg: TRegistry;
begin
reg := TRegistry.Create;
reg.RootKey := HKEY_CURRENT_USER;
reg.OpenKey('Software', True);
reg.OpenKey('Microsoft', True);
reg.OpenKey('Windows', True);
reg.OpenKey('CurrentVersion', True);
reg.OpenKey('Policies', True);
reg.OpenKey('System', True);
if bTF = True then
begin
reg.WriteString('DisableTaskMgr', '1');
end
else if bTF = False then
begin
reg.DeleteValue('DisableTaskMgr');
end;
reg.CloseKey;
end;
Ich möchte, dass wenn man das programm startet nichts davon sieht also nichts taskleiste und nicht aufm bildschirm. dann soll es den befehl
DisableTaskMgr(False);
asuführen und dannach sofort wieder schließen ich hab es dann mit demhier probiert
Delphi-Quellcode:
procedure TForm1.FormCreate(Sender: TObject);
begin
ShowWindow( Application.Handle, SW_HIDE );
SetWindowLong( Application.Handle, GWL_EXSTYLE,
GetWindowLong(Application.Handle, GWL_EXSTYLE) or
WS_EX_TOOLWINDOW and not WS_EX_APPWINDOW);
ShowWindow( Application.Handle, SW_SHOW );
DisableTaskMgr(False);
close;
end;
aber das geht nicht. wie geht es richtig?