Автозапуск диска

← →
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);

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

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

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