Форум: "Начинающим";
Текущий архив: 2006.03.19;
Скачать: [xml.tar.bz2];

Вниз

Как открыть *.cpl фаил?   Найти похожие ветки 

← →
Alex_C ©   (2006-03-02 11:10) [0]

Делаю так
ShellExecute(0, "open", "timedate.cpl", "", "", SW_SHOWNORMAL);
Не проходит.

---

← →
_RusLAN ©   (2006-03-02 12:08) [1]

Насколько я знаю это обычная ДЛЛ ее так просто не откроеш.
попробуй так "control timedate.cpl"

---

← →
Alex_C ©   (2006-03-02 14:02) [2]

Нет так тоже не прокатывает (((

---

← →
Floppy ©   (2006-03-02 14:23) [3]

Действительно не проходит:(

А так проходит:)
WinExec("C:\WINDOWS\SYSTEM32\CONTROL.EXE TIMEDATE.CPL",        sw_ShowNormal);
то есть с полным path

---

← →
Alex_C ©   (2006-03-02 14:32) [4]

Действительно проходит )))
Большое спасибо!

---

← →
umbra ©   (2006-03-02 14:34) [5]

имя файла и параметры его командной строки должны указываться отдельно

ShellExecute(0, nil, "control.exe", "timedate.cpl", nil, SW_SHOWNORMAL);

---

← →
Floppy ©   (2006-03-02 14:36) [6]

Ну, а лучше все-таки так (если на "чужом" компе и не знаем расположение SystemDir):

function GetSystemDir: TFileName;
var
 SysDir: array[0..MAX_PATH - 1] of char;
begin
 SetString(Result, SysDir, GetSystemDirectory(SysDir, MAX_PATH));
 if Result = "" then
   raise Exception.Create(SysErrorMessage(GetLastError));
end;

procedure TForm1.Button1Click(Sender: TObject);
var
 x: Tfilename;
begin
 x := getsystemdir;
 ShellExecute(Form11.Handle, "open", Pchar("rundll32.exe"), "shell32.dll,Control_RunDLL Desk.cpl,@0,3", Pchar(X), SW_normal);
end;

Взято с DRKB

---

← →
Floppy ©   (2006-03-02 14:38) [7]

Не заметил umbra ©   (02.03.06 14:34) [5]  :((

---

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

Форум: "Начинающим";
Текущий архив: 2006.03.19;
Скачать: [xml.tar.bz2];

Наверх

Память: 0.45 MB
Время: 0.012 c