Bedingte Compilierung

[Michael II]

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;