Форум: "Основная";
Текущий архив: 2002.04.15;
Скачать: [xml.tar.bz2];
ВнизГде ошибка? Найти похожие ветки
← →
olookin (2002-04-02 17:55) [1]Можно так (хоть и не очень, но зато без Variantов):
var disks: array [0..5] of Char = ("A","B","C","D","E","F");
var c,d,dr: array [0..255] of Char;
i: integer;
s: string;
s:="C:\1.xls"; StrPCopy(c,s);
for i:=0 to Length(disks)-1 do begin
s:=disks[i]+":\Program Files\Microsoft Office\Office\Excel.exe";
if FileExists(s) then begin StrPCopy(d,s);
s:=disks[i]+":\Program Files\Microsoft Office\Office\"; StrPCopy(dr,s);
ShellExecute(ModelWindow.handle,"open",d,c,dr,SW_RESTORE); break; end; end;
Все это делает открывает ранее сохраненный Excel-файл.
Страницы: 1 вся ветка
Форум: "Основная";
Текущий архив: 2002.04.15;
Скачать: [xml.tar.bz2];
Память: 0.43 MB
Время: 0.041 c