Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2003.03.20;
Скачать: CL | DM;

Вниз

Как вызвать окно   Найти похожие ветки 

 
Delphi Mania   (2003-03-08 00:26) [0]

Собственно сабж. Как вызвать окно "Свойства: Дата и Время" ? Желательно пример процедуры или функции на WinAPI


 
Pat ©   (2003-03-08 00:49) [1]

Запускай аплет Timedate.cpl


 
Pat ©   (2003-03-08 00:53) [2]

предупреждая следующий вопрос...
http://delphi.mastak.ru/cgi-bin/faq.pl?look=1&id=988621635&n=15


 
Delphi Mania   (2003-03-08 00:54) [3]

Приведи плз пример :)


 
Intell ©   (2003-03-08 09:11) [4]

Найди в Windows файл, отвечающий за время и открывай его любой из данных процедур

16 и 32 разрядный вызов (работает на разных операционных системах)

procedure TForm1.Button1Click(Sender: TObject);
begin
winexec(pchar("notepad.exe"),sw_shownormal);
end;



Есть другой способ - 32 разрядный (работает только под Windows, но быстрее предыдущего)

добавляем модуль ShellAPI в USES

procedure TForm1.Button1Click(Sender: TObject);
begin
ShellExecute(Handle,nil,PChar("notepad.exe"),nil,nil,SW_ShowNormal);
end;



Ещё один способ - открывает не только *.exe файлы, как предыдущие, а открывает по маске

добавляем модуль ShellAPI в USES

procedure TForm1.Button1Click(Sender: TObject);
begin
ShellExecute(Application.Handle, "open", "C:\мои документы\Doc1.doc", nil, nil, sw_ShowNormal);
end;



Другой способ - открывает ссылки в инет:

добавляем модуль ShellAPI в USES

procedure TForm1.Label1Click(Sender: TObject);
begin
ShellExecute(0, "open", " http://www.pl-computers.ru", "", "", SW_Show);
end;

открывает ссылки Email:
procedure TForm1.Label1Click(Sender: TObject);
begin
ShellExecute(0, "open", "mailto:sergein@nojabrsk.ru", "", "", SW_Show);
end;


Другой способ: (Не забудьте добавить Shellapi в Uses)

function ExecuteFile(const FileName, Params, DefaultDir: string; ShowCmd: Integer): THandle;
var
zFileName, zParams, zDir: array[0..79] of Char;
begin
Result := ShellExecute(Application.MainForm.Handle, nil,
StrPCopy(zFileName, FileName), StrPCopy(zParams, Params),
StrPCopy(zDir, DefaultDir), ShowCmd);
end;


procedure TForm1.Button1Click(Sender: TObject);
begin
ExecuteFile("maker.exe","text_file","c:\maker", SW_SHOWNORMAL);
end;


Pat подсказал Timedate.cpl, но я не проверял.


 
Pat ©   (2003-03-08 11:19) [5]

>Приведи плз пример
#@$#%@ ну до чего народ обленился...я ж те дал ссылку..тыкаешь на нее, открывается что-то типа "Как запустить аплет Панели управления?"


 
Anatoly Podgoretsky ©   (2003-03-08 11:25) [6]

Pat © (08.03.03 11:19)
Нет ты скопируй оттуда сюда.


 
Diamond Cat ©   (2003-03-08 15:34) [7]

для особо одаренных WinExec("CONTROL.EXE TIMEDATE.CPL", sw_ShowNormal);



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

Текущий архив: 2003.03.20;
Скачать: CL | DM;

Наверх




Память: 0.48 MB
Время: 0.017 c
1-64085
Reals
2003-03-07 18:42
2003.03.20
Как добавить пункт меню в выпадающее по умолчанию меню TMemo?


1-64172
Darrin
2003-03-07 18:12
2003.03.20
Глюк ComboBox под Win98


7-64400
ЮРИЙ_К
2003-01-24 10:28
2003.03.20
Спрятать прогу от Ctrl+Alt+Del для ХР ?


1-64058
ГеныЧ
2003-03-07 23:50
2003.03.20
Шаблоны и печать на тормознутом компе.


14-64324
AlexanderSK
2003-03-04 15:37
2003.03.20
Создание служб Windows2000