kostenloser Webspace werbefrei: lima-city

Suche Befehle für FreePascal

lima-city → Forum → Programmiersprachen → Delphi & Pascal

1. Autor dieses Themas

   spitzei

   

   spitzei hat kostenlosen Webspace.

   15:39, 9.11.2009

   Hallo
   Ich habe mal 3 Fragen alle beziehen sich auf die Programier Sprache FreePascal :
   
   1. Ich suche einen Befehl mit dem ich von einer Funktion wieder zum Hauptprogramm springen kann.
   
   2. Ich suche wieder eine Befehl mit dem ich den Akkuladestand unter Windows abrufen kann.
   
   3.Und nochmal ist ein Befehl gesucht mit dem ich das Programm jeder Zeit beenden kann.
   
   Spitzei

2. Diskutiere mit und stelle Fragen: Jetzt kostenlos anmelden!

   lima-city: Gratis werbefreier Webspace für deine eigene Homepage

3. kochmarkus

   Co-Admin

   kochmarkus hat kostenlosen Webspace.

   20:48, 9.11.2009

   1) http://www.freepascal.org/docs-html/rtl/system/exit.html
   2) ?
   3) http://www.freepascal.org/docs-html/rtl/system/halt.html

4. jacer

   

   jacer hat kostenlosen Webspace.

   21:04, 9.11.2009

   Mit so einer Prozedur kannst du genaue Informationen über den aktuellen Status des Laptopakkus aufrufen:
   
   

   implementation
   
   {$R *.DFM}
   
   procedure TForm1.Timer1Timer(Sender: TObject);
   var
    SystemPowerStatus: TSystemPowerStatus;
   begin
    GetSystemPowerStatus(SystemPowerStatus);
    with SystemPowerStatus do 
    begin
     // Wird das System mit Wechselstrom oder Akku betrieben ?
     case ACLineStatus of
      0: Label1.Caption := 'System wird mit Akku betrieben';
      1: Label1.Caption := 'System wird mit Wechselstrom betrieben';
     else
      Label1.Caption := 'Unbekannter Status des Strombetriebes';
     end;
     // Batterieladezustand
     case BatteryFlag of
      1  : Label2.Caption := 'Hoher Ladezustand';
      2  : Label2.Caption := 'Niedriger Ladezustand';
      4  : Label2.Caption := 'Kritischer Ladezustand';
      8  : Label2.Caption := 'Die Batterie wird geladen';
      128: Label2.Caption := 'Es existiert keine System-Batterie';
      255: Label2.Caption := 'Unbekannter Status des Batterieladezustandes';
     end;
     // Ladezustand in Prozent
     if BatteryLifePercent <> 255 then
      Label3.Caption := IntToStr(BatteryLifePercent) + ' %'
     else
      Label3.Caption := 'Unbekannter Status (% Ladezustand)';
    end;
   end;

   
   
   Quelle: isapi.ch
5. Autor dieses Themas

   spitzei

   

   spitzei hat kostenlosen Webspace.

   22:09, 9.11.2009

   Danke mal für die ganzen antworten

6. Diskutiere mit und stelle Fragen: Jetzt kostenlos anmelden!

   lima-city: Gratis werbefreier Webspace für deine eigene Homepage

Dir gefällt dieses Thema?