Tip accessed 72 times
procedure TForm1.Button1Click(Sender: TObject); var s : string; begin s := 'C:\Directorio\fichero.xxx'; SHAddToRecentDocs(SHARD_PATH, pChar(s)); end;