PureBasic - SysTray

[Programie]

Reichen dafür etwa 100 Zeichen?

Und was ist bei CloseHandle_() ?
Da muss man auch irgendwas einsetzen. Nur was (String, Float, Long, Byte)?

[ts-soft]

Reichen dafür etwa 100 Zeichen?

Sollten genügen
Oder Du erzeugst einmalig eine GUID, die sollte einmalig sein.

Code: Alles auswählen

Procedure.s MakeGUID()
  LBuffer.s = Space(76)
  SBuffer.s = Space(38)
  CoCreateGuid_(GuidId.GUID)
  StringFromGUID2_(GuidId, LBuffer,76);
  WideCharToMultiByte_(0, 0, LBuffer, 76, SBuffer, 38, 0, 0);
  ProcedureReturn SBuffer
EndProcedure

Nachtrag:
Das was OnlyOne zurückgibt, ist der Wert, den Du an CloseHandle_(
übergeben mußt. So das Dein Programm, nach beenden wieder Startbar ist.
Ist ein Long, kann man aber alles an dem vom mir geposteten Beispiel erkennen.

[Programie]

Und CloseHandle_() ? Was bekommt der Befehl?

[AndyX]

siehe Win32.hlp -_-"

[Programie]

Das Programm kann man immer noch mehrfach starten! Hier ist mal der Sourcecode.

Was denkt ihr, was da falsch ist?

[ts-soft]

Mach doch mal bitte ein Zip (oder ähnlich) draus, so kann ich es nicht
downloaden.
Wahrscheinlich ist der String, den Du übergibst, nicht Konstant sondern wird
gebildet.

[Programie]

Hier der Sourcecode als Executable.

[ts-soft]

Wie gesagt, der String ist nicht Konstant, sondern wird gebildet, das kann nicht gehen.
MakeGuid() verwenden und den String in Deinem Code einfügen, z.B. so:

Code: Alles auswählen

Global Running
Running=OnlyOne("{544470D2-8FB0-49E3-8334-6E34309EC038}")

MakeGuid kannste aus dem eigentlichem Programm entfernen.

[Programie]

Du hast doch mir erst gesagt, dass ich den Befehl MakeGUID() verwenden soll. Wieso jetzt doch nicht?

[AndyX]

weil du ja selber auch eine GUID tippen kannst, siehe Ts-softs post.