Difference between revisions of "Run program once/de"
From Free Pascal wiki
Jump to navigationJump to searchm (Fixed syntax highlighting; removed categories included in template) |
|||
Line 1: | Line 1: | ||
{{Run program once}} | {{Run program once}} | ||
− | + | ||
− | Zurück zur Seite [[code examples/de|Code Beispiele]]. | + | |
− | + | Zurück zur Seite [[code examples/de|Code Beispiele]]. | |
− | Dieser Artikel beschäftigt sich mit der Windowsprogrammierung. | + | |
− | Die Funktion prüft, ob sich das Programm bereits gestartet wurde. | + | |
− | Für den Fall, dass das Programm bereits gestartet wurde wird ein Hinweis ausgegeben und die neue Instanz des Programms beendet sich von selbst. | + | Dieser Artikel beschäftigt sich mit der Windowsprogrammierung. |
− | Der Code wird im Ereignis OnCreate des Hauptformulars aufgerufen. | + | |
− | <syntaxhighlight> | + | Die Funktion prüft, ob sich das Programm bereits gestartet wurde. |
+ | |||
+ | Für den Fall, dass das Programm bereits gestartet wurde wird ein Hinweis ausgegeben und die neue Instanz des Programms beendet sich von selbst. | ||
+ | |||
+ | Der Code wird im Ereignis OnCreate des Hauptformulars aufgerufen. | ||
+ | |||
+ | <syntaxhighlight lang=pascal> | ||
uses | uses | ||
SysUtils, Forms, Windows, ...; | SysUtils, Forms, Windows, ...; | ||
Line 27: | Line 33: | ||
</syntaxhighlight> | </syntaxhighlight> | ||
− | |||
− | |||
− | |||
− | |||
− | |||
− | |||
− |
Latest revision as of 14:09, 25 February 2020
{{Platform only|Windows}
│
Deutsch (de) │
Zurück zur Seite Code Beispiele.
Dieser Artikel beschäftigt sich mit der Windowsprogrammierung.
Die Funktion prüft, ob sich das Programm bereits gestartet wurde.
Für den Fall, dass das Programm bereits gestartet wurde wird ein Hinweis ausgegeben und die neue Instanz des Programms beendet sich von selbst.
Der Code wird im Ereignis OnCreate des Hauptformulars aufgerufen.
uses
SysUtils, Forms, Windows, ...;
...
procedure TForm1.FormCreate(Sender: TObject);
begin
// Lässt nur eine Instanz des Programms zu!!
CreateMutex(nil, True, PChar(ExtractFileName(application.ExeName)));
if GetLastError = ERROR_ALREADY_EXISTS then
begin
application.messagebox(PChar('Das Programm läuft bereits!'), 'Achtung', 0 + MB_ICONerror);
application.terminate;
end;
end;
...