استفاده از توابع API [بایگانی]

PDA

View Full Version : استفاده از توابع API

javidtaheri

چهارشنبه 14 بهمن 1383, 16:53 عصر

با سلام
چگونه توابع API را در دلفی فراخوانی کنیم :گیج:

مهدی کرامتی

چهارشنبه 14 بهمن 1383, 19:36 عصر

کدام تابع API را؟

Delphi Skyline

چهارشنبه 14 بهمن 1383, 19:48 عصر

آخه تابع ها با هم فرق دارن

Developer Programmer

چهارشنبه 14 بهمن 1383, 20:00 عصر

نرم افزاری مثل API-Guide یا AllAPI را دانلود کن

javidtaheri

جمعه 16 بهمن 1383, 12:37 عصر

با سلام
من کتابی را دیدم در مورد توابع API
بعضی از آنها بدرد برنامه ام خورد سوال من اینست که:
1- ایا توابع API را در دلفی میتوان استفاده کرد یا خیر :confy2:
2- اگر جواب بله است کدام توابع را :cry:
3- ابزار بهتر از توابع API آیا وجود دارد که استفاده انها در دلفی بهتر باشد :kaf:
4- در صورت امکان یک مثال :sunglass:

robochoo

جمعه 16 بهمن 1383, 17:07 عصر

فکر منم بعضی هاش توی shelapi باشه

مهدی کرامتی

جمعه 16 بهمن 1383, 18:53 عصر

ایا توابع API را در دلفی میتوان استفاده کرد یا خیر
بله.

اگر جواب بله است کدام توابع را
تمام شان را !

ابزار بهتر از توابع API آیا وجود دارد که استفاده انها در دلفی بهتر باشد
برنامه های دلفی کلا با فراخوانی توابع API کار میکنند. خود VCL که چهارچوب برنامه نویسی در دلفی است در حقیقت لایه ای بر روی توابع API است.

در صورت نیاز به فرخوانی مستقیم توابع API کافی است یونیت Windows را در فرم تان Use کنید.

مثال:

<span dir=ltr>

ActivateKeyboardLayout

Unit
Windows.Pas

Syntax
ActivateKeyboardLayout(
klh: HKL; {keyboard layout handle}
Flags: UINT {activation flag}
): HKL; {returns previous handle}

Description
The ActivateKeyboardLayout function activates the keyboard layout identified by the specified keyboard layout handle. In Windows95, it takes effect for the current thread. In Windows NT, it affects all threads.

Parameters
klh: The keyboard layout handle. This handle can be obtained by calling LoadKeyboardLayout or GetKeyboardLayoutList. This parameter can also be set to HKL_NEXT or HKL_PREV which refer to the next or previous entries in the keyboard layout list.

Flags: Specifies Keyboard layout options.

Return Value
If the function succeeds, the return value is the keyboard layout handle of the previous keyboard layout. If the function fails, it returns zero, indicating no matching keyboard layout was found. To get extended error information, call the GetLastError function.

Example:
</span>
var
Form1: TForm1;
List : array [0..MAX_HKL] of HKL; // list of keyboard handles

implementation

{$R *.DFM}

procedure TForm1.Button1Click(Sender: TObject);
var
MyLangID: WORD; // holds a language identifier
begin
{load the keyboard layout specified by language IDs}
MyLangID:=MakeLangID(WORD(StrToInt(Edit1.Text)), WORD(StrToInt(Edit2.Text)));

if LoadKeyBoardLayout(PChar('0000' + IntToHex(MyLangID,4)),KLF_ACTIVATE) = 0
then ShowMessage('Error loading keyboard layout');
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
{activate the highlighted keyboard layout}
if (ActivateKeyboardLayout(StrToInt(ListBox1.Items[Li stbox1.Itemindex]),
KLF_REORDER) = 0) then
ShowMessage('Error activating the keyboard layout');

{clear the keyboard layout list and repopulate it}
ListBox1.Clear;
FormCreate(Sender);
end;

procedure TForm1.FormCreate(Sender: TObject);
var
pwszKLID: PChar; // holds the name of a keyboard layout
MyListIndex: Integer; // specifies a list index
begin
{get the keyboard layout lists}
GetKeyboardLayoutList(MAX_HKL, List);

{allocate a buffer for the keyboard layout name string}

GetMem(pwszKLID, KL_NAMELENGTH);

{retrieve the name string for active keyboard layout}
GetKeyboardLayoutName(pwszKLID);
ShowMessage('The active keyboard layout is '+pwszKLID);
StatusBar1.SimpleText:= 'Active keyboard layout ' + pwszKLID;

{retrieve the code page identifier}
StaticText1.Caption:=IntTostr(GetACP);

{free the string memory}
FreeMem(pwszKLID);

{list all the keyboard layout in the list box}

MyListIndex := 0;
while (List[MyListIndex] <> 0) do
begin
ListBox1.Items.Add(IntToStr(List[MyListIndex]));
Inc(MyListIndex);
end;
end;

procedure TForm1.Button3Click(Sender: TObject);
begin
{unload keyboard layout}
if not UnloadKeyboardLayout(StrToInt(ListBox1.Items[Listb ox1.ItemIndex])) then
ShowMessage('Error Unloading Keyboard Layout');

end;

function MakeLangID(PrimLang, SubLang:WORD): WORD;
begin
{make a Language ID by combining the Primary language ID and Sub language ID}
Result := (SubLang SHL 10) + PrimLang;
end;

فرزاد دلفی باز

دوشنبه 26 بهمن 1383, 14:42 عصر

دوست عزیز DelphiAssistant :
جالب بود . استفاده کردم .....

saeed_d

دوشنبه 26 بهمن 1383, 16:23 عصر

:تشویق: :تشویق: :موفق:

ho_abedin

دوشنبه 26 بهمن 1383, 22:52 عصر

ببخشید آیا می توانید مرا راهنمایی کنید که چگونه میتوانم API جستجوی یک کلمه خاص را در یک صفحه HTML از داخل دلفی استفاده کنم
در برنامه یک صفحه وب داریم میخواهیم دنبال کلمه خاصی بگردیم ابتدا آن کلمه را داخل یک edit تایپ کنیم و با زدن یک دکمه و با استفاده از API ویندوز تمامی کلمات مشابه در صورت وجود داشتن در صفحه وب مورد نظر به حالت select مشخص شود
اگر لطف کنید بصورت سورس کد کامل برایم مثال بزنید متشکر می شوم
با احترام