Форум: "Начинающим";
Текущий архив: 2006.04.09;
Скачать: [xml.tar.bz2];
Вниз
Как открыть окно эксплорера? Найти похожие ветки
← →
burk © (2006-03-22 09:39) [0]Подскажите пожалуйста, как (ну например при нажатии на кнопку или при загрузке приложения эт не важно) открыть окно эксплорера с заданным адресом?
1. Http://www.итд
2. C:/
3. что бы программа узнала какой буквой обозначен CDrom и открыла окно с файлами которые находятся на диске
← →
MBo © (2006-03-22 09:43) [1]ShellExecute(0, "open", "c:\", nil, nil, SW_NORMAL); // или адрес
GetLogicalDrives+GetDriveType
← →
burk © (2006-03-22 09:58) [2]Простите, А что значит ShellExecute?
← →
MBo © (2006-03-22 09:59) [3]APi-функция. Для использования нужно в uses добавить ShellAPI
← →
burk © (2006-03-22 10:01) [4]НИШТЯК!!! СПАСИБО ОГРОМНОЕ!!!
← →
Handle (2006-03-22 10:02) [5]
uses
ShellApi ;
ShellExecute(Handle,
"open","Http://www.итд", nil, nil, SW_SHOWNORMAL);
← →
Handle (2006-03-22 10:05) [6]
> что бы программа узнала какой буквой обозначен CDromfunction GetFirstCDROMDrive: char;
var
drivemap, mask: DWORD;
i: integer;
root: string;
begin
Result := #0;
root := "A:\";
drivemap := GetLogicalDrives;
mask := 1;
for i := 1 to 32 do
begin
if (mask and drivemap) <> 0 then
if GetDriveType(PChar(root)) = DRIVE_CDROM then
begin
Result := root[1];
Break;
end;
mask := mask shl 1;
Inc(root[1]);
end;
end;
procedure TForm1.Button1Click(Sender: TObject);
begin
Label1.Caption:= GetFirstCDROMDrive;
end;
← →
SEMYONov © (2006-03-22 10:37) [7]А как узнать список ВСЕХ cd-rom_ов?
← →
Anatoly Podgoretsky © (2006-03-22 11:05) [8]Только CD-ROM может и не иметь буквы.
← →
SEMYONov © (2006-03-22 11:49) [9]Упростим задачу, предположим он имеет букву )
← →
burk © (2006-03-22 16:08) [10]
> ShellExecute(0, "open", "c:\", nil, nil, SW_NORMAL);
Всё конечно получилось... но в целях пополнения ума поясните каждый параметр. плз
что такое 0, nil, ещё один nil, sw_normal
Страницы: 1 вся ветка
Форум: "Начинающим";
Текущий архив: 2006.04.09;
Скачать: [xml.tar.bz2];
Память: 0.46 MB
Время: 0.015 c
