Einbindung des PC-Systems

[MTB1Leo]

n'Abend

Ich würde gern in ein Programm zwei Funktionen einbauen.

Das Programm soll die aktuelle Urzeit, also die Systemzeit anzeigen und als Wert verwenden können.
Ist das mit Lazarus möglich?

Außerdem würde ich gern mit dem Programm ein anderes Programm starten. Innerhalb der LUA-Sprache ist das mit "shell.run..." möglich.
Gibt es so eine Funktion auch in Lazarus?


Danke!

MTB1Leo

[Mathias]

Uhrzeit:

Code: Alles auswählen

procedure TForm1.Timer1Timer(Sender: TObject);
begin
  Caption := TimeToStr(Now) + ' Uhr    ' + DateToStr(Now) + '    ' + DateTimeToStr(Now) + ' Uhr';
end;      

Programm-Aufruf:

Code: Alles auswählen

procedure TForm1.Button1Click(Sender: TObject);
begin
  ShellExecute(0, 'open', PChar('C:\WINDOWS\notepad.exe'), nil, nil, SW_SHOW);
end;  

[MTB1Leo]

Sehr vielen Dank!

[Mathias]

Verwende für den Externen Aufruf besser:

Code: Alles auswählen

  ExecuteProcess('C:\WINDOWS\notepad.exe','');

Die erste Variante ist nur für Windows.

[MTB1Leo]

Alles klar, mach ich.