Anwendung nur ein mal starten Code verlangsammt das Programm

[Delphiturbo]

Hallo

wenn ich den Code in mein Programm einbaue, dann verzögert das Programm beim Starten bis zu 3 Sekunden !
Der Code ist hier

kann man z.B. während dieser Zeit mit einem Trick die Kunden beruhigen
z.B. mit einem Splash :mrgreen:

[alleinherrscher]

Bist du dir sicher, dass es an dem Code von Luckie liegt? Ich benutzte den auch und der ist eigentlich ziemlich schnell...

[SirThornberry]

welche variante hast du denn genommen? die obere oder die Komponente?

[mkinzler]

Michaels Code ist genau so falsch, wie dieses Tutorial
http://www.delphipraxis.net/internal...t.php?t=134469
:zwinker:

[Delphiturbo]

Ich habe nicht die Unit genommen sondern nur diesen Teil:

Delphi-Quellcode:

var mHandle: THandle;    // Mutexhandle

Initialization
  mHandle := CreateMutex(nil,True,'xxxxx');
  // 'xxxxx' Der Anwendungsname ist hier einzutragen
  if GetLastError = ERROR_ALREADY_EXISTS then begin   
    // Anwendung läuft bereits
    {showMessage('Anwendung läuft bereits!!!!!');}   
    // Wenn du deine Meldung willst, mach die Klammern weg
    Halt;
  end;

finalization   // ... und Schluß
  if mHandle <> 0 then
    CloseHandle(mHandle)
end. {Dieter Hirt}

Es funktioniert aber ziemlich ein paar Sekunden langsam

[Svenkan]

Also bei mir funktionierts wunderbar.

[toms]

Zitat:

Zitat von Delphiturbo

Hallo

wenn ich den Code in mein Programm einbaue, dann verzögert das Programm beim Starten bis zu 3 Sekunden !
Der Code ist hier

kann man z.B. während dieser Zeit mit einem Trick die Kunden beruhigen
z.B. mit einem Splash :mrgreen:

Stoppe mal die Zeit vor CreateMutex() und nachher.

[Luckie]

Zitat:

Zitat von mkinzler

Michaels Code ist genau so falsch, wie dieses Tutorial
http://www.delphipraxis.net/internal...t.php?t=134469
:zwinker:

Das verstehe ich jetzt nicht. :gruebel:

[mkinzler]

Das war ironisch gemeint. Dort hat er auch behauptet der Code sei falsch, er hat ihn aber nur falsch angewendet.
Sorry, wenn ich falsch verstanden wurde