Arsip: [HELPP ]Tanya cara set Regional Option dari script dong

more 14 years ago
MingMing
gini nih, saya pemakai d5 utk saat ini.
Masalahnya adalah:
Control Panel>Regional Options>General>location = "Indonesia"
bisakah langsung diset dari script???? jadi ngk perlu repot-repot lagi merubah secara manual.
Adakah temen-temen yg tau and bisa bantu saya?
sebelumnya thx lho!" onerror="this.style.display='none'"/>

more 14 years ago
LuriDarmawan
coba dipaksa pake kode ini:
procedure RegionalSetting_ID;
begin
CurrencyString := 'Rp.';
CurrencyFormat := 2; {Contoh: 'Rp. 1'}
NegCurrFormat := 14; {Contoh: '(Rp. 1)'}
CurrencyDecimals := 2;
TimeAMString := 'AM';
TimePMString := 'PM';
ThousandSeparator := '.';
DecimalSeparator := ',';
DateSeparator := '/';
TimeSeparator := ':';
LongTimeFormat := 'hh:mm:ss';
ShortTimeFormat := 'hh:mm';
ShortDateFormat := 'dd-mm-yyyy';
LongDateFormat := 'dd mmmm yyyy';
LongDayNames[1] := 'Senin';
LongDayNames[2] := 'Selasa';
LongDayNames[3] := 'Rabu';
LongDayNames[4] := 'Kamis';
LongDayNames[5] := 'Jumat';
LongDayNames[6] := 'Sabtu';
LongDayNames[7] := 'Minggu';
ShortDayNames[1] := 'Sen';
ShortDayNames[2] := 'Sel';
ShortDayNames[3] := 'Rab';
ShortDayNames[4] := 'Kam';
ShortDayNames[5] := 'Jum';
ShortDayNames[6] := 'Sab';
ShortDayNames[7] := 'Ming';
ShortMonthNames[1] := 'Jan';
ShortMonthNames[2] := 'Feb';
ShortMonthNames[3] := 'Mar';
ShortMonthNames[4] := 'Apr';
ShortMonthNames[5] := 'Mei';
ShortMonthNames[6] := 'Jun';
ShortMonthNames[7] := 'Jul';
ShortMonthNames[8] := 'Agt';
ShortMonthNames[9] := 'Sep';
ShortMonthNames[10] := 'Okt';
ShortMonthNames[11] := 'Nov';
ShortMonthNames[12] := 'Des';
LongMonthNames[1] := 'Januari';
LongMonthNames[2] := 'Februari';
LongMonthNames[3] := 'Maret';
LongMonthNames[4] := 'April';
LongMonthNames[5] := 'Mei';
LongMonthNames[6] := 'Juni';
LongMonthNames[7] := 'Juli';
LongMonthNames[8] := 'Agustus';
LongMonthNames[9] := 'September';
LongMonthNames[10] := 'Oktober';
LongMonthNames[11] := 'November';
LongMonthNames[12] := 'Desember';
end;
semangat semangat
more 14 years ago
MingMing
waduh....ternyata masih belum bisa. dia masih tetep baca dari bawaannya windows :(
Setting dari script atau dari registry, yg mana aja boleh deh.
saya udah pusing nihh. ditunggu posting bantuan dari temen-temen yg lain.
sebelumnya saya ucapkan thx banget gitu lho :)

more 14 years ago
LuriDarmawan
Skrip diatas sangat membantu buat saya,
kalao dikau tidak bisa.... mm... entahlah..

more 14 years ago
Kecret
mungkin yg anda maksud seperti ini : http://www.chami.com/tips/delphi/052698D.html

more 14 years ago
Kecret
atau anda coba pelajari dan anda modifikasi dari artikel-artikel ini : http://delphi.about.com/library/weekly/aa062403b.htm

more 14 years ago
LuriDarmawan
url yang disebutkan 'kecret' khan memanggil fungsi 'Regional Setting' di control-panel.

more 14 years ago
Kecret
iya emang, maksudnya mungkin bisa dimodifikasi untuk memaksa memanggil cpl location yang 'indonesia'... gitchu lhooo...

more 14 years ago
MingMing
gini, yang saya maksud untuk menentukan nilai regional settingnya, bukan untuk manggil dialog regional setting.
script:
====
function TfrmCompare.RunControlPanelApplet(
sAppletFileName : string) : integer; //--hanya untuk manggil doang
begin
Result :=
WinExec(
PChar('rundll32.exe shell32.dll,'+
'Control_RunDLL '+sAppletFileName),
SW_SHOWNORMAL);
end;
====
Yang diatas hanya untuk nampilin aja gitu lho :(
Yang saya maksud :
casenya: default regional option windows = "english", terus mau diubah ke "indonesia".
Kalo pake script caranya masih belom ketemu.
but @Kecret, anyway thx for your assistance :)

more 14 years ago
MingMing
wah... para master delphi udah kehabisan akal nih? masih ditunggu lho jawabannya :)))
more ...
- Pages:
- 1
- 2
reply |
Report Obsolete
Last Articles
- Project Group dalam Lazarus
- FastPlaz Database Explorer
- Release: FastPlaz Super Mom v0.12.22
- PascalClass #3: Web Development with Free Pascal
- Makna Pascal di Pascal Indonesia
- Kulgram : Instalasi Lazarus di Perangkat Berbasis ARM
- PascalClass #1: Analisa Database dan Machine Learning
- PascalTalk #6: (Podcast) Kuliah IT di luar negeri, susah gak sih?
- Mengenal OXYGENE – Pascal For .NET
- PascalTalk #5: UX: Research, Design and Engineer
Last Topic
- PascalTalk #6: (Podcast) Kuliah IT di luar negeri, susah gak sih?
by LuriDarmawan in Tutorial & Community Project more 3 months ago - PascalTalk #5: UX: Research, Design and Engineer
by LuriDarmawan in Tutorial & Community Project more 4 months ago - PascalTalk #4: Obrolan Ringan Seputar IT
by LuriDarmawan in Tutorial & Community Project more 4 months ago - PascalTalk #2: Membuat Sendiri SMART HOME
by LuriDarmawan in Tutorial & Community Project more 4 months ago - PascalTalk #3: RADically Fast and Easy Mobile Apps Development with Delphi
by LuriDarmawan in Tutorial & Community Project more 4 months ago - PascalTalk #1: Pemanfaatan Artificial Intelligence di Masa Covid-19
by LuriDarmawan in Tutorial & Community Project more 4 months ago - Tempat Latihan Posting
by LuriDarmawan in OOT more 1 years ago - Archive
- Looping lagi...
by idhiel in Hal umum tentang Pascal Indonesia more 8 years ago - [ask] koneksi ke ODBC user Dsn saat runtime dengan ado
by halimanh in FireBird more 8 years ago - Validasi menggunakan data tanggal
by mas_kofa in Hal umum tentang Pascal Indonesia more 8 years ago
Random Topic
- Cek duplikasi record
by jajang in Tip n Trik Pemrograman more 12 years ago - kecepatan rata2 access
by nurez in Hal umum tentang Pascal Indonesia more 13 years ago - Sintak Update SQL
by asepolin in Hal umum tentang Pascal Indonesia more 11 years ago - Ada panduan Zreport?
by goehsatrio in Reporting more 12 years ago - Menampilkan data yang kembar
by wiseguy1997 in Tip n Trik Pemrograman more 13 years ago - Licensi Delphi
by farhan_port in Hal umum tentang Pascal Indonesia more 13 years ago - MASTER_DETAIL
by desidian in Lain-lain more 9 years ago - [saran] db server untuk data jumlah besar
by simba in Lain-lain more 13 years ago - combo box tidak bisa melebar
by flamade in Hal umum tentang Pascal Indonesia more 13 years ago - konsep pembuatan notification
by binyo in Lain-lain more 8 years ago