EWeiss, lösch meinen Code am besten. Der scheint ja absoluter Mist zu sein
Warum funktioniert einwandfrei wenn SL als TStringList definiert ist.
Meine Videos laufen!
UHD direkt aus dem Internet ohne zu speichern.
Zitat:
es gibt auch binäre Formate, wie z.B. .lnk
Habe ich schon fertig *.lnk NUR das will ich nicht zu viel Code und absolut nicht nötig.
Das Sample von @DieDolly ist dafür vollkommen ausreichend.
Zitat:
aber mir fällt grade nicht ein wo diese
API sich versteckt
ShellApi
Und hier ein Sample!
Delphi-Quellcode:
procedure TWebShortCut.LoadInternetShortCut;
// Loads information for internet shortcut (*.URL) from FileName and Location.
var
inifile: TIniFile;
psfi: TSHFileInfo;
begin
ClearValues;
iniFile := TIniFile.Create(GetLocationFolder);
try
fURL := iniFile.ReadString('
InternetShortcut', '
URL', '
');
fHotKey := iniFile.ReadInteger('
InternetShortcut', '
Hotkey', 0);
HotKeyToShortCut(FHotKey, FHotKeyCtrl);
fIconPath := iniFile.ReadString('
InternetShortcut', '
IconFile', '
');
fIconIndex := iniFile.ReadInteger('
InternetShortcut', '
IconIndex', 0);
finally
inifile.free;
end;
// load icon into TIcon if one is available.
if FIconPath = '
'
then
begin
SHGetFileInfo(PChar(fURL), 0, psfi, sizeof(psfi), SHGFI_ICON);
FIcon.Handle := psfi.hIcon;
end
else
FIcon.Handle := ExtractIcon(hInstance, PChar(FIconPath), FIconIndex);
end;
Aber wie gesagt ich will meine TWebShortCut Classe dafür
nicht einbinden.
gruss