Как открыть окно эксплорера?

← →
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_ов?

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

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

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

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

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