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