function StartleistenEintrag()
	NUMBER nType, nResult;
 	STRING szIsData, szKommando;

begin
	// Festlegen, in welcher Gruppe der Link abgelegt werden soll
	if (Is(USER_ADMINISTRATOR,szIsData)==TRUE) then
		nType = COMMON;
	else
		nType = PERSONAL;
	endif;

	ProgDefGroupType ( nType);

	// Hinzufgen der Verknpfung
	szKommando=TARGETDIR ^ "Serielle.exe";
	LongPathToQuote( szKommando, TRUE);
	nResult=AddFolderIcon(FOLDER_PROGRAMS ^ SHELL_OBJECT_FOLDER,
		@PRODUCT_NAME, szKommando, TARGETDIR, "", 0, "", REPLACE);
	// Hat alles geklappt ?
	if (nResult != 0) then
		MessageBox("Eintrag in der Startleiste ist fehlgeschlagen.",
			SEVERE);
	endif;

	return nResult;
end;
