kostenloser Webspace werbefrei: lima-city


Suche Befehle für FreePascal

lima-cityForumProgrammiersprachenDelphi & Pascal

  1. Autor dieses Themas

    spitzei

    Kostenloser Webspace von spitzei

    spitzei hat kostenlosen Webspace.

    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 Kostenloser Webspace von kochmarkus

    kochmarkus hat kostenlosen Webspace.

  4. 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

    Kostenloser Webspace von spitzei

    spitzei hat kostenlosen Webspace.

    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?

Über lima-city

Login zum Webhosting ohne Werbung!