07-09-2014, 01:11 PM
لتغيير ترميز الوقت ( ؛حذف AM/PM )
رابط التحميل ( السورس كامل مع الملف التطبيقي )
PHP كود :
procedure TimeFormat(_RestartThisApp: Boolean=False) ;
var
Section: string;
begin
Section := 'Control Panel\International' ;
with TRegIniFile.Create('') do
try
RootKey := HKEY_CURRENT_USER;
if LowerCase(ReadString(Section, 'sTimeFormat', 'HH:mm:ss'))<>'hh:mm:ss' then begin
WriteString(Section, 'sTimeFormat', 'HH:mm:ss') ;
WriteString(Section, 's1159', '') ;
WriteString(Section, 's2359', '') ;
if _RestartThisApp then
Form1.RestartThisApp;
end;
finally
Free;
end;
end;
PHP كود :
procedure TForm1.FormCreate(Sender: TObject);
begin
TimeFormat(True);
PHP كود :
http://www.mediafire.com/download/tg8dd8dba4sphab/ALPHA_SRC%26BIN.rar

