1:
2:
3:
4:

  Procedure shSetFolderPath(Clsid:DWord; hToken:THandle; DWFlags:DWord; pszPath:pChar);
            StdCall; external 'Shell32.dll' index 232;

  //Der Aufruf dieser Funktion tut nichts!?!                    

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:

  var hshell32dll:THandle;
      pShsetFolderPath
            :procedure(Clsid:DWord;hToken:THandle;DWFlags:DWord;pszPath:pChar);
begin
    hshell32dll:=GetModuleHandle(pchar('shell32.dll'));
    @pShSetFolderPath:=getProcAddress((hshell32dll, ??lpProcName??));
end;

// ????? Wie muss ich hier den lpProcName als ordinal-Wert angeben??
// Die MSDN schreibt dazu:
//[out] Pointer to a null-terminated string containing the function name, or specifies 
//the function's ordinal value. If this parameter is an ordinal value, it must be in the 
//low-order word; the high-order word must be zero.                    

1:

@pShSetFolderPath:=getProcAddress(hshell32dll,Pointer(232));