Модератор: Модераторы

Function GetWindowsSpecialDir(ID :  Integer) : String;
Var
  APath : Array[0..MAX_PATH] of char;
begin
  Result:='';
  if (CFGDLLHandle=0) then
    InitDLL;
  If (SHGetFolderPath<>Nil) then
    begin
    if SHGetFolderPath(0,ID or CSIDL_FLAG_CREATE,0,0,@APATH[0])=S_OK then
      Result:=IncludeTrailingPathDelimiter(StrPas(@APath[0]));
    end;
end;
Вернуться в Free Pascal Compiler
Сейчас этот форум просматривают: Google [Bot] и гости: 1