Delphi基本语法格式和常用函数总汇.docxVIP

Delphi基本语法格式和常用函数分类：《Delphi中的进制转换(如hex与bin)》??ShowMessage(Format(%d:%d, [pos, length(keys)])+:+keys);Format(%d:%d:%x, [pos, key_len,byte(pchar(keys)[0])]) // 其中keys为string类型《delphi快捷键-和vim对应上的快捷键》delphi延时函数代码！Delphi文件操作函数Delphi关于多线程同步的一些方法,信号量,互斥量和临界区delphi轻松实现原子操作-CreateSemaphore获得Integer和DWord类型的最大值? ShowMessage(IntToStr(High(Integer)));? ShowMessage(IntToStr(High(DWord)));// delphi的sleep()就是一个ms毫秒级延时函数,但是使用sleep会导致程序短暂pendingprocedure TForm1.delay(MSecs: Integer);//延时函数，MSecs单位为毫秒(千分之1秒)var FirstTickCount, Now: Longint;begin? if MSecs 0 then begin??? FirstTickCount := GetTickCount();??? repeat????? Application.ProcessMessages;????? Now := GetTickCount();??? until (Now - FirstTickCount = MSecs) or (Now FirstTickCount);? end;end;varwrite_semaphore:THandle;write_semaphore:=CreateSemaphore(0, 1, 1, nil);procedure TForm1.Button1Click(Sender: TObject);begin? WaitForSingleObject(com.write_semaphore, INFINITE); // 返回值WAIT_TIMEOUT和WAIT_OBJECT_0? ReleaseSemaphore(com.write_semaphore, 1, nil);end;var file_name:string;file_name:=c:\luther.gliethttp.txt;send_fd:=FileOpen(file_name, fmOpenRead or fmShareDenyWrite);FileWrite(com.log_fd, PChar(file_name)^, length(file_name));GetForegroundWindow找到xp操作系统上当前前景窗体句柄.GetActiveWindow 只是获取当前程序中(严格地说是线程中)被激活的窗口;GetForegroundWindow 是获取当前系统中被激活的窗口.《Delphi中FindWindow和FindWindowEx的语法和用法》??《delphi获取操作系统已运行的所有窗口程序－如打开的所有记事本的标题》两个函数的级别不一样, 一个是线程级、一个是系统级.被激活的窗口不一定是顶层窗口(最上面的窗口).? // 向当前占有焦点的控件发送剪切板粘帖指令? if Edit1.Focused or Edit3.Focused or Edit4.Focused then??? SendMessage(Form1.ActiveControl.Handle, WM_PASTE, 0, 0);==================================char类型数组和string之间的使用以及bin数据转换为hex函数使用// 这是摘自Classes.pas库中的实现代码procedure BinToHex(Buffer, Text: PChar; BufSize: Integer); assembler;const? Convert: array[0..15] of Char = 0123456789ABCDEF;var? I: Integer;begin? for I := 0 to BufSize - 1 do? begin??? Text[0] := Convert[Byte(Buffer[I]) shr 4];??? Text[1] := Convert[Byte(Buffer[I]) and $F];??? Inc(Text, 2);? end;end;procedure TForm1.Button3Click(Sender: