AGB  ·  Datenschutz  ·  Impressum  







Anmelden
Nützliche Links
Registrieren
Zurück Delphi-PRAXiS Programmierung allgemein Programmieren allgemein Delphi Verknüpfung (.lnk) Datei erzeugen
Thema durchsuchen
Ansicht
Themen-Optionen

Verknüpfung (.lnk) Datei erzeugen

Ein Thema von Fukiszo · begonnen am 29. Jan 2018 · letzter Beitrag vom 29. Jan 2018
 
Fukiszo
(Gast)

n/a Beiträge
 
#5

AW: Verknüpfung (.lnk) Datei erzeugen

  Alt 29. Jan 2018, 19:56
Dort wird beschrieben wie man eine .lnk Datei mit Notepad und Hexeditor bearbeitet,
ich wollt schon innerhalb Delphi bleiben und hat gehofft das es da auch so eine "simple" methode gibt.
Ziel sollte sein eine .lnk datei auszuwerten und falls ein update nötig ist einfach eine neue erstellen.

Ich schau mal was ich mit der .pdf von microsoft anfangen kann um es mit Delphi zu realisieren.

Grüße


edit:
hab was passendes gefunden:

Delphi-Quellcode:
function GetLinkInfo(WinhWnd:HWND;LnkObj:string):String;
var
  hres : HRESULT;
  psl : IShellLink;
  ppf : IPersistFile;
  wfd : Win32_Find_Data;
  Path : array[0..MAX_PATH] of Char;
begin
  result := '????';
  //initializes the Component Object Model(COM) library
  CoInitialize(nil);
  // Call CoCreateInstance to obtain the IShellLink Interface pointer.
  hres:=CoCreateInstance(CLSID_ShellLink, nil,
                              CLSCTX_INPROC_SERVER, IID_IShellLinkA, psl);
  if NOT SUCCEEDED(hres) then exit;
  // The IShellLink Interface supports the IPersistFile
  // interface. Get an interface pointer to it.
  hres:=psl.QueryInterface(IID_IPersistFile,ppf);
  if SUCCEEDED(hres) then begin
    // Convert the given link name string to wide character string.
    // and Load the file.
    hres:=ppf.Load(StringToOLEStr(LnkObj),STGM_READ);
    if SUCCEEDED(hres) then begin
      // Resolve the link by calling the Resolve() interface function.
      hres:=psl.Resolve(WinhWnd,SLR_ANY_MATCH OR SLR_NO_UI);
      if SUCCEEDED(hres) then begin
        hres:=psl.GetPath(Path,MAX_PATH,wfd,SLGP_SHORTPATH);
        if SUCCEEDED(hres) then result:=Path;
      end;
    end;
  end;
end;

Geändert von Fukiszo (29. Jan 2018 um 20:06 Uhr)
  Mit Zitat antworten Zitat
 


Forumregeln

Es ist dir nicht erlaubt, neue Themen zu verfassen.
Es ist dir nicht erlaubt, auf Beiträge zu antworten.
Es ist dir nicht erlaubt, Anhänge hochzuladen.
Es ist dir nicht erlaubt, deine Beiträge zu bearbeiten.

BB-Code ist an.
Smileys sind an.
[IMG] Code ist an.
HTML-Code ist aus.
Trackbacks are an
Pingbacks are an
Refbacks are aus

Gehe zu:

Impressum · AGB · Datenschutz · Nach oben
Alle Zeitangaben in WEZ +1. Es ist jetzt 13:47 Uhr.
Powered by vBulletin® Copyright ©2000 - 2025, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024-2025 by Thomas Breitkreuz