◇[DELPHI]解析服務(wù)器IP地址

　　uses winsock

　　function IPAddrToName(IPAddr : String): String;

　　var

　　SockAddrIn: TSockAddrIn;

　　HostEnt: PHostEnt;

　　WSAData: TWSAData;

　　begin

　　WSAStartup($101, WSAData);

　　SockAddrIn.sin_addr.s_addr:= inet_addr(PChar(IPAddr));

　　HostEnt:= gethostbyaddr(@SockAddrIn.sin_addr.S_addr, 4, AF_INET);

　　if HostEnt<>nil then result:=StrPas(Hostent^.h_name) else result:='''';

　　end;

　　◇[DELPHI]取得快捷方式中的連接

　　function ExeFromLink(const linkname: string): string;

　　var

　　FDir,

　　FName,

　　ExeName: PChar;

　　z: integer;

　　begin

　　ExeName:= StrAlloc(MAX_PATH);

　　FName:= StrAlloc(MAX_PATH);

　　FDir:= StrAlloc(MAX_PATH);

　　StrPCopy(FName, ExtractFileName(linkname));

　　StrPCopy(FDir, ExtractFilePath(linkname));

　　z:= FindExecutable(FName, FDir, ExeName);

　　if z > 32 then

　　Result:= StrPas(ExeName)

　　else

　　Result:= '''';

　　StrDispose(FDir);

　　StrDispose(FName);

　　StrDispose(ExeName);

　　end;

　　◇[DELPHI]控制TCombobox的自動(dòng)完成

　　{''Sorted'' property of the TCombobox to true }

　　var lastKey: Word; //全局變量

　　//TCombobox的OnChange事件

　　procedure TForm1.AutoCompleteChange(Sender: TObject);

　　var

　　SearchStr: string;

　　retVal: integer;

　　begin

　　SearchStr := (Sender as TCombobox).Text;

　　if lastKey <> VK_BACK then // backspace: VK_BACK or $08

　　begin

　　retVal := (Sender as TCombobox).Perform(CB_FINDSTRING, -1, LongInt(PChar(SearchStr)));

　　if retVal > CB_Err then

　　begin

　　(Sender as TCombobox).ItemIndex := retVal;

　　(Sender as TCombobox).SelStart := Length(SearchStr);

　　(Sender as TCombobox).SelLength :=

　　(Length((Sender as TCombobox).Text) - Length(SearchStr));

　　end; // retVal > CB_Err

　　end; // lastKey <> VK_BACK

　　lastKey := 0; // reset lastKey

　　end;

　　//TCombobox的onKeyDown事件

　　procedure TForm1.AutoCompleteKeyDown(Sender: TObject; var Key: Word;

　　Shift: TShiftState);

　　begin

　　lastKey := Key;

　　end;