Using OLE/COM technology with Delphi programming tool (Last update: 19-01-2003 )

Create a link to a file using IShellLink

Get the file pointed by its link name

procedure CreateLink ( FileName, LinkName: string );
var
aBuffer: array[0..200] of char;
wBuffer: WideString;
shlLink: IShellLink;
persFile: IPersistFile;
res: HResult;
begin
shlLink := CreateComObject( CLSID_SHellLink ) as IShellLink;
persFile := shlLink as IPersistFile;
strpCopy( aBuffer, FileName);
res := shlLink.setPath( aBuffer );
wBuffer := LinkName + '.lnk';
res := persFile.save( pwChar(wBuffer), true );

end;

str1 := 'Resolving link: ' + wBuffer + ' --> ' + ResolveTheLink( myLinkName);
messageDlg( str1, mtInformation, [mbOK], 0 );

function ResolveTheLink( LinkName: string ): string;
var
aBuffer: array[0..200] of char;
wBuffer: WideString;
shlLink: IShellLink;
persFile: IPersistFile;
win32FindData: Twin32FindData;
res: HResult;
begin
shlLink := CreateComObject( CLSID_SHellLink ) as IShellLink;
persFile := shlLink as IPersistFile;
wBuffer := EditLnkName.text + '.lnk';
res := persFile.load( pwChar(wBuffer), STGM_READ );
res := shlLink.getPath( aBuffer, 200, win32FindData, 0 );
result := strPas(aBuffer);
end;

   if you have some suggestion or question about this program please mail me at enzo.arlati@libero.it