باز کردن پنجره Date Time And Properties

[mosharecat]

سلام کسی APi باز کردن پنجره Date Time and Time properties رو بلده
(همون پنجره ایکه با کلیک روی ساعت ویندوزط باز میشه) ؟ مرسی از همه دوستان ..

[Hsimple11]

سلام کسی APi باز کردن پنجره Date Time and Time properties رو بلده




function GetSystemDir: string;
var
SysDir: PChar;
begin
GetMem(SysDir, MAX_PATH);
GetSystemDirectory(SysDir, MAX_PATH);
Result := StrPas(SysDir);
FreeMem(SysDir, MAX_PATH);
if (Result[Length(Result)] <> '\') then
Result := Result + '\';
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
ShellExecute(0, nil, PChar(GetSystemDir + 'rundll32.exe'),
PChar('shell32.dll,Control_RunDLL Timedate.cpl'), PChar(GetSystemDir),
SW_SHOW);
end;

[Hsimple11]

یونیت ShellApi را هم یادتان نرود.

موفق باشید.