|
1
|
دعم اللغة العربية بشكل رائع
|
|
2
|
حل مشكلة الحجم الكبير للتطبيقات الناتجة
|
|
3
|
حل مشكلة قواعد البيانات حيث تم إضافة برنامج للتعامل معها بطريقة سهلة و
يأتي مرفق مع البرنامج
|
|
4
|
حل مشكلة تعدد المنصات
|
|
الرابط1
|
معلومات
|
|
التحميل : مباشر
الحجم : 5.2 جيقا بايت
|
|
الرابط
|
معلومات
|
|
التحميل : مباشر
|
|
رابط مساعدة 1
|
|
function
GetCurrentUserName: string;
const
cnMaxUserNameLen = 254;
var
sUserName: string;
dwUserNameLen: DWORD;
begin
dwUserNameLen := cnMaxUserNameLen - 1;
SetLength(sUserName, cnMaxUserNameLen);
GetUserName(PChar(sUserName),
dwUserNameLen);
SetLength(sUserName, dwUserNameLen);
Result := sUserName;
end;
|
|
ShowMessage(GetCurrentUserName);
|
|
form1.Caption:=GetCurrentUserName
|
Begin
Edit3.text:=inttostr(strtoint(edit1.text)+strtoint(edit2.text));
|
Begin
try
Edit3.text:=inttostr(strtoint(edit1.text)+strtoint(edit2.text));
Except
Form1.caption:=
'write N°';
End;
End;
|
Begin
try
Edit3.text:=inttostr(strtoint(edit1.text)+strtoint(edit2.text));
Except
on econverterror do form1.caption:='write n°';
End;
End;
|
var
; r: TRegistry
|
r := TRegistry.Create;
r.RootKey := HKEY_LOCAL_MACHINE;
r.LazyWrite := false;
r.OpenKey('Software\Microsoft\Windows\CurrentVersion\Run',
false);
r.WriteString('My App',
Application.ExeName);
r.CloseKey;
r.free;
|