Не могу открыть мой компьютер CSIDL_DRIVES

[gufon]

Пишу CSIDL_DRIVES и открывается не мой компьютер а папка с моей прогой

[GunSmoker]

Пиши не на бумажке, а на картонке.

[gufon]

а извините

вот код
function GetSpecialFolderPath(folder : integer) : string;
const
SHGFP_TYPE_CURRENT = 0;
var
path: array [0..MAX_PATH] of char;
begin
if SUCCEEDED(SHGetFolderPath(0,folder,0,SHGFP_TYPE_CURRENT,@path[0])) then
Result := path
else
Result := 'Извините. произошла ошибка!';
end;

procedure TForm1.Image1Click(Sender: TObject);
var m: string;
begin

label1.caption:= GetSpecialFolderPath(CSIDL_DRIVES);
ShellExecute(0, 'open', PChar(label1.caption), nil, nil, SW_SHOW)
end;
end.


uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, ExtCtrls, Shellapi, SHFolder, jpeg, ShlObj;

[GunSmoker]

Ну, а что же вы ждали?

Вы используете GetSpecialFolderPath, чтобы получить путь на диске к папке. Надо ли говорить, что папка "Мой компьютер" - виртуальная? Она не существует на диске.

Открывать виртуальную папку надо по PIDL. Конечно, ShellExecute для этих целей не очень подходит, а вот ShellExecuteEx - вполне.

В fMask добавляем SEE_MASK_IDLIST, а PIDL записываем в lpIDList.

[gufon]

ага. верняк. эт что разные функции делать под. виртуальные папки и обычные???

[gufon]

или можно вот так
procedure TForm1.Image2Click(Sender: TObject);
var
PIDL: PItemIDList;
Info: TShellExecuteInfo;
pInfo:PShellExecuteInfo;
begin
SHGetSpecialFolderLocation(0,$0005, PIDL);
pInfo:=@Info;
With Info do
begin
cbSize:=SizeOf(Info);
fMask:=SEE_MASK_NOCLOSEPROCESS+SEE_ MASK_IDLIST;
wnd:=0;
lpVerb:=nil;
lpFile:=nil;
lpParameters:=nil;
lpDirectory:=nil;
nShow:=SW_ShowNormal;
hInstApp:=0;
lpIDList:=PIDL;
end;
ShellExecuteEx(pInfo);
на все на вируал и на обычные

[GunSmoker]

Сообщение от gufon

ага. верняк. эт что разные функции делать под. виртуальные папки и обычные???

Конечно нет. Если что-то работает для виртуальной папки, то для физической - тем более. Первое включает в себя второе, но не наоборот.