Как вызвать окно

← →
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]

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

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

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