Вопрос #30422

 #  

 #  

http://msdn.microsoft.com/en-us/library/bb762494

 #  

[Error] Unit1.pas(51): Undeclared identifier: 'CSIDL_DRIVES'
хочу открыть мой компьютер и вот
все исправил но открывается папка с моей прогой а не мой компьютер

 #  

#650163 пишет

[Error] Unit1.pas(51): Undeclared identifier: 'CSIDL_DRIVES'
хочу открыть мой компьютер и вот

переустанови винду....

 #  

NIKNN пишет

#650163 пишет

[Error] Unit1.pas(51): Undeclared identifier: 'CSIDL_DRIVES'
хочу открыть мой компьютер и вот

переустанови винду....

Я так понял вы не програмист??? Так как винда здесь вообще не причем

 #  

Список используемых библиотек в студию.

 #  

вот код
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;

 #  

Код рабочий.
Откуда берете значение folder для передачи функции GetSpecialFolderPath?

Добавлено спустя 01 минуту 19 секунд
О, вижу, пардон.

 #  

вопросы с кратим заголовком,могут быть удалены модератором...

 #  

Слишком трезв. Щас напишем на картонке. Ждите.
Все остальные работают, однако.

Добавлено спустя 57 минут 19 секунд
Дык это... папка-то виртуальная. Не откроется, конечно. Юзайте ShellExecuteEx.

 #  

#650163 пишет

вот код
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;

А пометить что это программирование не судьба? Блин раздел не заметил..мля...

Добавлено спустя 18 минут 59 секунд
я к автору обратился если что)