| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

Как открыть окно эксплорера? [D5, XP]

burk ©   (2006-03-22 09:39:00) 

Подскажите пожалуйста, как (ну например при нажатии на кнопку или при загрузке приложения эт не важно) открыть окно эксплорера с заданным адресом?
1. Http://www.итд
2. C:/
3. что бы программа узнала какой буквой обозначен CDrom и открыла окно с файлами которые находятся на диске

---

burk   (2006-03-22 16:08:00) [1]

> ShellExecute(0, 'open', 'c:\', nil, nil, SW_NORMAL);

Всё конечно получилось... но в целях пополнения ума поясните каждый параметр. плз
что такое 0, nil, ещё один nil, sw_normal

---

SEMYONov   (2006-03-22 11:49:00) [2]

Упростим задачу, предположим он имеет букву )

---

Anatoly Podgoretsky   (2006-03-22 11:05:00) [3]

Только CD-ROM может и не иметь буквы.

---

SEMYONov   (2006-03-22 10:37:00) [4]

А как узнать список ВСЕХ cd-rom_ов?

---

Handle   (2006-03-22 10:05:00) [5]

> что бы программа узнала какой буквой обозначен CDrom

function 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;

---

Handle   (2006-03-22 10:02:00) [6]

uses
ShellApi ;

ShellExecute(Handle,
 'open',' Http://www.итд', nil, nil, SW_SHOWNORMAL);

---

burk   (2006-03-22 10:01:00) [7]

НИШТЯК!!! СПАСИБО ОГРОМНОЕ!!!

---

MBo   (2006-03-22 09:59:00) [8]

APi-функция. Для использования нужно в uses добавить ShellAPI

---

burk   (2006-03-22 09:58:00) [9]

Простите, А что значит ShellExecute?

---

MBo   (2006-03-22 09:43:00) [10]

ShellExecute(0, 'open', 'c:\', nil, nil, SW_NORMAL); // или адрес
GetLogicalDrives+GetDriveType

---

Наверх