Текущий архив: 2004.06.20;
Скачать: CL | DM;

Вниз

Автозапуск диска   Найти похожие ветки 

← →
Smily   (2004-06-04 08:36) [0]

Я начинающий, подскажите как обратиться к папке с файлами!!! Желательно на примере!!!

---

← →
ZHK ©   (2004-06-04 08:37) [1]

Напишт подробней, в чем задача?

---

← →
grom   (2004-06-04 09:24) [2]

procedure TForm1.Button1Click(Sender: TObject);
var
ini:TIniFile;
s:string;
begin
ini:=TIniFile.Create("d:\autorun.inf");
  s:=ini.ReadString("autorun","OPEN","");
ini.Free;
  if s<>"" then begin
    s:="d:\"+s;
    shellexecute(0,"",pchar(s),"",pchar(extractfilepath(s)),SW_SHOWNORMAL);
  end;
end;
примерно так но возможно есть ошибки

---

← →
Ozone ©   (2004-06-04 09:40) [3]

Что с файлами сделать-то надо?

---

← →
grom   (2004-06-04 09:51) [4]

grom   (04.06.04 09:24) [2] = Автозапуск диска

ShellExecute(Handle,nil,PChar(d+":\"),nil,nil,SW_SHOWNORMAL);

---

← →
Oyster ©   (2004-06-04 10:24) [5]

> grom   (04.06.04 09:24) [2] = Автозапуск диска
>
> ShellExecute(Handle,nil,PChar(d+":\"),nil,nil,SW_SHOWNORMAL);

А если по умолчанию для дисков задано не "автозапуск", а "открыть"?

---

Страницы: 1 вся ветка

Текущий архив: 2004.06.20;
Скачать: CL | DM;

Наверх

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