Форум: "Основная";
Текущий архив: 2004.06.20;
Скачать: [xml.tar.bz2];
Вниз
Автозапуск диска Найти похожие ветки
← →
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;
Скачать: [xml.tar.bz2];
Память: 0.45 MB
Время: 0.034 c
