uses WinInet;procedure TForm1.Button1Click(Sender: TObject);begin  if InternetGetConnectedState(nil, 0) then ShowMessage(已连接);end;

unit uBaseForm;interfaceuses  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,  Dialogs;type  TPoint =

方法一：WebBrowser1.Silent := True;WebBrowser1.Navigate(URL);repeat  Application.ProcessMessages;until WebBrowser1.ReadyState = READYS

uses jpeg,EncdDecd,ZLibEx//字符串base64 编码Function StrtoBase64(const Str:string):string;begin result:=EncodeString(Str);end;//字符串ba

procedure VariantToStream(const V: OLEVariant; Stream: TStream);var  P : Pointer;begin  Stream.Position := 0;  Stream.Size := VarA

uses ZLibEx procedure VariantToStream(const V: OLEVariant; Stream: TStream);var  P : Pointer;begin  Stream.Position := 0;  Str

function Decrypt(Src: string; Key: string): string;var  KeyLen, KeyPos, Offset, SrcPos, SrcAsc, TmpSrcAsc: Integer;  Dest: string;be

vars:string;p:pchar;a:array[1..20] of char;那么三者之间的转换如下：1、字符串到PChar    p:=PChar(s);2、PChar到字符串    s:=p;3、PChar到字符数组    St

对于使用DLL包方式组织的项目，很多人都知道如果BUILD WITH RUNTIME PACKAGE不勾选上，会有很多的问题。所以一般会将所有的EXE和DLL项目的BUILD WITH RUNTIME PACKAGE勾选上。每当这时候，你以为万事大吉了。兴奋地编译项目，满怀期待地

<br />网上一大把这种方法，可惜许多不能用。这个我试过了，可以。<br />USES Masks<br />procedure GetFileListEx(FilePath, ExtMask: string; FileList: TStrings; SubDirectory: Boolean = True); //遍?目?及子目?<br />function Match(FileName: string; MaskList: TStrings): boolean;<br />var<br />    i

{ ShowBalloonTip(Memo1, 1, '球形提示', 'Selonboy:'+#13#10+'Http://www.SelonSoft.com'+#13#10+'QQ:289161766', $00E8FFFF, clred);}unit BallTip;interfaceuses  SysUtils,Windows,Controls,Graphics,Messages,CommCtrl;procedure ShowBalloonTip(Control: TWinControl; Icon:

<br />function ReadFileToBuffer(const AFileName: string; var AFileSize: Cardinal; var AData): Boolean;<br />var<br />FileHandle: THandle;<br />MappingHandle: THandle;<br />FindData: TWin32FindData;<br />MappingName: string;<br />TheCreationTime: TFileTime;

function WriteFileFromBuffer(const AFileName: string; AFileSize: Cardinal; var AData; AIsAppend: Boolean = False): Boolean;type  PTQWord = ^TQWord;  TQWord = packed record  case Boolean of  False: (QWORD: Int64);  True: (LODWORD: DWORD; HIDWORD: DWORD);  e

1.组件对象的序列化从TCOMPONENT继承下来的组件对象序列化都简单，因为它本身支持流化，通过流化也就达到了序列化组件对象的目的。TReader和TWriter都只支持Tcomponent流化,除非你自己写个TReader和TWriter,就有可能支持TPersiten的流化. function   ComponentToString(Component:   TComponent):   string; var     BinStream:TMemoryStream;     StrStream:  

uses wininet；procedure TForm1.Button1Click(Sender: TObject);var  Types:integer;beginTypes:=INTERNET_CONNECTION_MODEM+INTERNET_CONNECTION_LAN+INTERNET_CONNECTION_PROXY;if internetGetConnectedState(@types,0)  then    edit1.text:='已经连接'    else   edit1.text:=

<br />Beep 其实是调用的 API 函数: MessageBeep(MB_OK); <br />MessageBeep 有下面几种用法可以调用几种不同的声音文件: MessageBeep(MB_OK);MessageBeep(MB_ICONHAND);MessageBeep(MB_ICONQUESTION); {这个不响, 不知道为什么}MessageBeep(MB_ICONEXCLAMATION);MessageBeep(MB_ICONASTERISK);MessageB

经常有人提问：说自己的项目是由许多DLL打包方式组织的，各个DLL之间的对象如何共享访问？ 这其实很简单：只要共享对象创建后，把它的指针保存进一个大家都可以访问 的地方，需要的时候就去取。 我说用INI文件暂存共享对象指针也行。为了证明特别写了几行代码： uses inifiles;procedure TForm1.Button2Click(Sender: TObjec

procedure TBaseForm.SetControlCaptions(Container: TWinControl);var  I: Integer;  sCaption, sNewCaption, sLanguage: string;  T: TRtti