Здравствуйте, 2hands, Вы писали:
2>Подскажите, пож, как в BCB6 из приложения открыть окно с содержимым заданной папки?
2>(не создать свое окно в приложении и отрисовать, а просто системное виндовое окно с содержимым папки).
function TfrmSearchSource.OpenFolder(const sPath : string) : integer;
var
SEI : TShellExecuteInfo;
zFileName : array[0..255] of Char;
path : string;
aPath: AnsiString;
begin
result := _OK_;
StrPCopy(zFileName, sPath);
FillChar(SEI, SizeOf(SEI), 0);
with SEI do begin
cbSize := SizeOf(SEI);
wnd := Application.Handle;
fMask := SEE_MASK_INVOKEIDLIST + SEE_MASK_FLAG_NO_UI;
lpFile := zFileName;
nShow := SW_SHOW;
end;
try
if Integer(ShellExecuteEx(@SEI)) = 0 then begin
result := _ERROR_;
end;
except
end;
end;
