VPF::Помогите получить путь к системной папке

Zlo

Дата 8.12.2009, 20:46 (ссылка)

(нет голосов)

Загрузка ...

Бывалый

Профиль
Группа: Участник
Сообщений: 235
Регистрация: 18.9.2004

Репутация: 1
Всего: 1

Код


program Project1;

{$APPTYPE CONSOLE}

uses
  SysUtils,
  Windows;

const
 CSIDL_PERSONAL = 5;
 SHGFP_TYPE_CURRENT = 0;

function SHGetFolderPath(wnd: HWND; csIdl: LongInt; dwFlags: DWORD; hToken: THandle; szPath: PChar):HRESULT;stdcall;
                        external 'shell32.dll' name 'SHGetFolderPathA';

var buf: array[0..MAX_PATH-1] of char;

begin

  SHGetFolderPath(0, CSIDL_PERSONAL, 0, SHGFP_TYPE_CURRENT, @buf);
  WriteLn('My Documents path: ', StrPas(@buf));

end.

Дельфя ругается на:

Код


StrPas(@buf)

А если поставить:

Код


Pchar(@buf)

то компилится, но выводит иероглифы :(
Как быть? Тут главное чтоб без использования доп библиотек вроде ShlObj

Может у кого есть готовый примерчик? уж очень не хочется тащиться в реестр за инфой...

THandle

Дата 8.12.2009, 21:38 (ссылка)

(нет голосов)

Загрузка ...

Хранитель Клуба
Group Icon

Награды: 1

Профиль
Группа: Админ
Сообщений: 3639
Регистрация: 31.7.2007
Где: Moscow, Dubai

Репутация: 65
Всего: 372

Цитата(Zlo @ 8.12.2009, 21:46

)

то компилится, но выводит иероглифы :(

Это из за WriteLn smile

Он не выводит русские символы просто так. smile

Используй вместо WriteLn процедуру типа:

Код



procedure Console_WriteLine(const AStr: WideString);
begin
  WriteConsoleW(GetStdHandle(STD_OUTPUT_HANDLE), PWideChar(AStr),
    Length(AStr), PDWORD(nil)^, nil);
end;

Да и вообще код на юникод переделай.

Демо

Дата 8.12.2009, 21:43 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Завсегдатай
Сообщений: 1278
Регистрация: 3.11.2005

Репутация: 30
Всего: 50

Либо так:

Код


var
  s: AnsiString;

begin
  SetLength(s,MAX_PATH);
  SHGetFolderPath(0, CSIDL_PERSONAL, 0, SHGFP_TYPE_CURRENT, @s[1]);
  s := PAnsiChar(s);
  WriteLn('My Documents path: ', WideString(s));
  Readln;

--------------------

Zlo

Дата 8.12.2009, 22:13 (ссылка)

(нет голосов)

Загрузка ...

Бывалый

Профиль
Группа: Участник
Сообщений: 235
Регистрация: 18.9.2004

Репутация: 1
Всего: 1

Спасибо ребята! А то я замучился.

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: Общие вопросы \| Следующая тема »