Hallo Dalai
nur noch kurz: Du findest auf der microsoft Seite den "genau gleichen" Code (halt nicht in Delphi
).
Du schreibst, dass du es anders machst. Wenn du es in etwa so machst wie im Code unten: Es funktioniert auch so, der Link wird korrekt erstellt, aber es taucht das genau gleiche Problem beim Debuggen auf; natürlich an genau der gleichen Stelle.
Gruss
M
Delphi-Quellcode:
uses ShlObj,
ActiveX, ComObj;
function CreateLinkFile(AFilename, ALinkfile, ADescription:
string) : Boolean;
var
pShellLinkW : IShellLinkW;
pPersistFile : IPersistFile;
begin
result:=false;
if SUCCEEDED(CoCreateInstance(CLSID_ShellLink,
nil, CLSCTX_inPROC_SERVER, IID_IShellLinkW, pShellLinkW))
then
begin
pShellLinkW.SetPath(PWideChar(AFilename));
pShellLinkW.SetDescription(PWideChar(ADescription));
pShellLinkW.SetWorkingDirectory(PWideChar(ExtractFilePath(AFilename)));
if SUCCEEDED(pShellLinkW.QueryInterface(IPersistFile, pPersistFile))
then
begin
pPersistFile.Save(PWideChar(ALinkFile), true);
end;
end;
end;