Вниз
Скачать: CL | DM;

Как открыть *.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 вся ветка

Скачать: CL | DM;



Память: 0.46 MB
Время: 0.027 c
15-1140891036
TStas
2006-02-25 21:10
2006.03.19
Почему у меня mid файлы не открываются?


2-1141591000
Vitalik__
2006-03-05 23:36
2006.03.19
url на кнопке


3-1138254928
syte_ser78
2006-01-26 08:55
2006.03.19
аналог экселевской группировки


15-1140501021
vidiv
2006-02-21 08:50
2006.03.19
"Пятьсотпятидесятимиллиметрового"


2-1141215909
WestBronx
2006-03-01 15:25
2006.03.19
Сортировка в TListBox.




   Наверх