Announcement

Collapse
No announcement yet.

Verknüpfungen erzeugen ( CreateShortcut )

Collapse
X
  • Filter
  • Time
  • Show
Clear All
new posts

  • Verknüpfungen erzeugen ( CreateShortcut )

    Hallo . stehe gerade auf dem schlauch...
    Ich möchte aus einer (Powerbuilder) Anwendung gerne eine Verknüpfung auf ein Verzeichnis erzeugen. Geht das direkt oder nur über Windows-Script-Host...

    Wenn hier niemand Powerbuilder verwendet, ist ggf. auch hilfreich zu erfahren, wie man das ggf. delphi o.ä. macht... bin da gerade echt überfragt.

  • #2
    Die native API Funktion dafür ist CreateHardLink

    http://msdn.microsoft.com/en-us/libr...=vs.85%29.aspx

    Ob du die auf irgendeine Art im Powerbuilder aufrufen kannst weiss ich nicht, jedenfalls macht man das in Delphi, C++ usw. damit.

    Alternativ das COM-Objekt

    CreateComObject(CLSID_ShellLink)
    Zuletzt editiert von Christian Marquardt; 11.12.2012, 17:29.
    Christian

    Comment


    • #3
      Danke, das müsste weiterhelfen...

      mmmmm... erstmal zu früh gefreut ..API CreateHardLink

      Establishes a hard link between an existing file and a new file. This function is only supported on the NTFS file system, and only for files, not directories.

      Das darf ich wohl so verstehen, das ich keine Verknüpfung auf ein Verzeichnis bekomme

      na denn wohl com-objekt .... CLSID_ShellLink ist der classname ?

      die Methoden sind wohl SetPath und SetWorkingDirectory usw...

      hat das jemand mal mit Verzeichnisen gemacht?
      Zuletzt editiert von tömmel; 11.12.2012, 18:00.

      Comment


      • #4
        Für's Protokoll...
        So geht's
        Code:
        OLEObject   wshShell, link
        
        long ll_status
        
        wshShell  = CREATE OLEObject 
        
        ll_status = wshShell.ConnectToNewObject ("WScript.Shell")
        
        if ll_status = 0 then
        
         link = wshShell.CreateShortcut( "c:\Auftrag.lnk")
         
         
         link.TargetPath ="c:\test"
         link.WorkingDirectory = "c:\test"
         link.Save
         
        end if
        naja so grob ... noch aufräumen usw .. aber klappt

        Comment

        Working...
        X