Forum: Win32/Win64 API (native code)
Delphi
by yankee,
5. Aug 2005
Nach weiterer erschöpfender Googlelei habe ich doch noch was gefunden:
http://www.informatik.hu-berlin.de/~vitt/delphi/index.shtml.de
da habe ich mir TShellLink runtergeladen. Damit ist es dann ganz einfach :-):
if extractFileExt(datei) ='.lnk' then
begin
link :=TShellLink.Create;
link.LoadFromFile(pfad + datei);
pfad :=link.Path;
datei :=extractFileName(pfad);
pfad...
Forum: Win32/Win64 API (native code)
Delphi
by yankee,
4. Aug 2005
Jetzt jhast du mich falsch verstanden. Ich meinte keine Internetlinks, sondern so Dateilinks. Also diese Symbole, die man üblichwerseie auf dem Desktop, im Startmenü und so weiter hat :-)
EDIT: Schidt, immernoch nicht präzise. Also ich meine Eine Verknüpfung auf eine Anwendung. Alternativ könnte ich natürlich an der Endung .lnk erkennen, dass es sich um einen Link handelt und diesen dann...
Forum: Win32/Win64 API (native code)
Delphi
by yankee,
4. Aug 2005
Ich habe mir ein Programm geschrieben, welches bestimmte Dateien mit dem Standardprogramm öffnet. ALso kurz so:
shellexecute(MainForm.Handle, 'open', PChar(datei), nil, PChar(pfad), SW_SHOW);
Ich will damit erreich, dass das gleich passiert, wie es passieren würden, wenn man mit der Maus im Explorer doppelt drauf klickt. Aber leider habe ich festgestellt, dass das mit Links (=Verknüpfungen)...