Скачать: CL | DM;

Как открыть окно эксплорера?   Найти похожие ветки 

← →
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]

> что бы программа узнала какой буквой обозначен 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;

---

← →
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 вся ветка

Скачать: CL | DM;



Память: 0.47 MB
Время: 0.04 c