EnableExplicit Define STARTUPINFO.STARTUPINFO #STARTF_TITLEISLINKNAME = $00000800 GetStartupInfo_(@STARTUPINFO) If STARTUPINFO\dwFlags & #STARTF_TITLEISLINKNAME MessageRequester("", "Die Anwendung wurde mit Hilfe einer Verknüpfung ausgeführt.", 0) Else MessageRequester("", "Die Anwendung wurde direkt aufgerufen.", 0) EndIf