با این تابع می توانید شاخه اصلی ویندوز را بدست آورید.
|
function Get_Windows_Directory: String;
begin
SetLength(Result, MAX_PATH);
GetWindowsDirectory(PChar(Result), Length(Result));
SetLength(Result, StrLen(PChar(Result)));
end; |
+ نوشته شده در شنبه بیست و پنجم شهریور 1385ساعت 16:30 توسط علی
|
برای تغییر زبان پبش فرض صفحه کلید می توانید از توابع زیر استفاده کنید
این توابع در ویندوزهای XP,2000 کار می کنند.
|
LoadKeyboardLayout('00000429',KLF_ACTIVATE); // Language Farsi;
LoadKeyboardLayout('00000401',KLF_ACTIVATE); // Language Arabic;
LoadKeyboardLayout('00000409',KLF_ACTIVATE); // Language English |
+ نوشته شده در دوشنبه سیزدهم شهریور 1385ساعت 8:17 توسط علی
|
امروز می خواهم یک تابع مفید به شما معرفی کنم
این تابع کلیدهای alt+F4 را بصورت مجازی فشار می دهد
;procedure Press_AltF4
begin
keybd_event(VK_MENU, 0, 0, 0); // Alt key pressed
keybd_event(VK_F4, 0, 0, 0); // F4 key pressed
keybd_event(VK_F4, 0, KEYEVENTF_KEYUP, 0); // F4 released
keybd_event(VK_MENU, 0, KEYEVENTF_KEYUP, 0);// Alt released
;end
+ نوشته شده در یکشنبه دوازدهم شهریور 1385ساعت 16:27 توسط علی
|
