AW: Rausfinden wie oft ein Programm läuft
Und was steht in der angegeben Zeilennummer?
|
AW: Rausfinden wie oft ein Programm läuft
Zeile 32:
Code:
Zeile 37:
THandle := CreateMutex(nil, True, 'calc.exe'+ IntToStr(i));
Code:
if THandle <> 0 then CloseHandle(THandle);
|
AW: Rausfinden wie oft ein Programm läuft
Da stimmen aber alle Klammern. Kommentiere mal den ganzen Initialization abschnitt aus und probiere es noch mal.
|
AW: Rausfinden wie oft ein Programm läuft
CreateMutex = WinAPI
Wenn man sich die Parameter ansieht, dann will das einen PChar (wobei den D2009-XE2 (?) natürlich von PWideChar redet)
Delphi-Quellcode:
= String
'calc.exe'+ IntToStr(i)
Und was sagt dir die eine Fehlerzeile? |
AW: Rausfinden wie oft ein Programm läuft
Entweder bin ich zu doof oder ich blick nicht mehr durch.
Hier mal der gesagte Source:
Delphi-Quellcode:
Glieder ich THandle := CreateMutex(nil, True, 'calc.exe'+ IntToStr(i)); und if THandle <> 0 then CloseHandle(THandle); aus, läuft das Programm. Sind die beiden aber wieder drin, zickt das nur rum -.-
unit Unit1;
interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs; type TForm1 = class(TForm) private { Private-Deklarationen } public { Public-Deklarationen } end; var Form1: TForm1; implementation {$R *.dfm} var i:Integer=0; Initialization //Zählen wie oft das Programm gestartet wird repeat THandle := CreateMutex(nil, True, 'calc.exe'+ IntToStr(i)); Inc(i); until GetLastError <> ERROR_ALREADY_EXISTS; MessageBox(0, PChar('Das Programm wurde'+IntToStr(i)+'mal gestartet') , 'MeinProg', MB_OK) finalization if THandle <> 0 then CloseHandle(THandle); end. |
AW: Rausfinden wie oft ein Programm läuft
Argh.
Delphi-Quellcode:
Hast du noch nie eine Variable deklariert?
var
mHandle: THandle; |
AW: Rausfinden wie oft ein Programm läuft
Paar Variablen habe ich schon Deklariert, allerdings ist das schon eine weile her -.-
Ausbildung und so ging einfach vor ... Vielen Dank für eure Zeit, die ich in anspruch genommen habe. Ich werde allerdings heute Delphi ruhen lassen... Sehe den Wald vor lauter Bäumen nicht mehr...... LG |
AW: Rausfinden wie oft ein Programm läuft
Zitat:
|
AW: Rausfinden wie oft ein Programm läuft
Hi,
ich habe es damals mit TJvAppInstances gemacht. Das ding kann aber nochmehr. Legs einfach mal drauf und spiel bissl mit rum. So lerne ich immer wenn ich was nicht weiss. Komme ich nicht weiter, dann google ich. zu 80% finde ich dann einen link nach hier, wo das steht was ich brauche. |
Alle Zeitangaben in WEZ +1. Es ist jetzt 08:04 Uhr. |
Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024 by Thomas Breitkreuz