IEV Softwarehouse GmbH

 


Quellcodes

Beispiele aus der Welt der Implementierung

Folgende Programmbeispiele sind nur Beispiele. Wir nehmen keine Gewährleistung auf Richtigkeit dieser Beispielcodes. Wer diese Beispielcodes in die eigenen Programme einbinden oder benutzen möchte, sollte diese gründlich überprüfen.
Wir übernehmen hierfür keine Haftung.
Die Beispielcodes stammen aus verschiedenen Quellen und wurden nicht immer auf Richtigkeit überprüft. Benutzen Sie diese Codes nur, um selbst zu lernen und zu verstehen.


Codebeispiel mit Derive (TM):
#1: f(x):=x^7+x^6-x^5+x^4-x^3+x^2-1
Nullstelle berechnen lassen:
#2: SOLVE(f(x)=0,x))


Codebeispiel mit Objective-C:
import <Foundation/Foundation.h>
int main()
{
   /* my first program in Objective-C */
    NSLog(@"Hello, World! ")
   return 0
}


 


Zurück

Taskleiste und Desktop einblenden in Delphi
Wenn man eine Starleiste oder die Desktopsymbole oder die Taskleiste wieder einblenden/sperren möchte, kann man folgende Unit vewenden.


uses Winapi.Windows, WHSystem;




procedure windowsHerunterfahren();
procedure windows_sperren();
procedure windows_freigeben();
procedure ShowTaskBar(AShow: Boolean);
procedure HideStartmenu;
procedure ShowStartmenu;

implementation





procedure windowsHerunterfahren();
begin
ExitWindows(Shutdown_F);
end;

procedure windows_freigeben();
begin
ShowWindow(FindWindow('Shell_TrayWnd', nil), SW_SHOW); //Taskleiste einblenden
ShowWindow(FindWindow(nil,'Program Manager'),SW_SHOW); //Desktop einblenden
ShowWindow(FindWindow('Button', 'Start'),SW_SHOW); //Startbutton Win7
EnableWindow(FindWindowEx(FindWindow('Shell_TrayWnd', nil),0,'Button',nil),true); //Startbutton vor Win7
SystemParametersInfo(97,Word(False),nil,0); // Taskmanager Aktivieren
SystemParametersInfo(SPI_SCREENSAVERRUNNING,1,Nil,0);
ShowTaskBar(true);
ShowStartmenu;

end;


procedure windows_sperren();
begin

try
SystemParametersInfo(SPI_SCREENSAVERRUNNING,0,Nil,0);

// Taskmanager Deaktivieren
SystemParametersInfo(97,Word(True),nil,0);

//Desktop ausblenden
ShowWindow(FindWindow(nil,'Program Manager'),SW_HIDE);

//Startbutton Win7
ShowWindow(FindWindow('Button', 'Start'),SW_HIDE); //Startbutton Win7

//Startbutton vor Win7
EnableWindow(FindWindowEx(FindWindow('Shell_TrayWnd', nil),0,'Button',nil),false); //Enable Windows Button

//Taskleiste ausblenden
// ShowWindow(FindWindow('Shell_TrayWnd', nil), SW_HIDE);

// ShowTaskBar(false);
// HideStartmenu;
except
// ShowMessage('Systemfehler im Programm. Computer wird heruntergefahren');
//computer_shutdown();
end;
end;


procedure ShowTaskBar(AShow: Boolean);
const
cmdShow: array[Boolean] of Integer = (SW_HIDE, SW_SHOW);
var
Handle: THandle;
begin
Handle := FindWindow('Shell_TrayWnd', nil);
if Handle <> 0 then
ShowWindow(Handle, cmdShow[AShow]);
end;



procedure HideStartmenu;
var
Startmenu: Hwnd;
begin
ShowWindow(FindWindowEx(0, 0, MAKEINTATOM($C017), 'Start'),SW_HIDE);
ShowWindow(Findwindow('Shell_TrayWnd',nil), SW_HIDE);
Startmenu := FindWindow('DV2ControlHost', nil);
if Startmenu <> 0 then
ShowWindow(Startmenu, SW_HIDE);
end;


procedure ShowStartmenu;
var
Startmenu: Hwnd;
begin
ShowWindow(FindWindowEx(0, 0, MAKEINTATOM($C017), 'Start'),SW_SHOW);
ShowWindow(Findwindow('Shell_TrayWnd',nil), SW_SHOW);
Startmenu := FindWindow('DV2ControlHost', nil);
if Startmenu <> 0 then
ShowWindow(Startmenu, SW_SHOW);
end;





 



 

Impressum    Kontakt    Datenschutz

©Softwarehouse 2020