showmessage(inttostr(R));

      showmessage(inttostr(G));

      showmessage(inttostr(B));

end;

7.       浏览计算机对话框

uses ShlObj;

function BrowseForComputer(const winhandle : THANDLE; const title : string) : string;

var

  BrowseInfo: TBrowseInfo;

  IDRoot: PItemIDList;

  Path: array[0..MAX_PATH] of Char;

begin

  SHGetSpecialFolderLocation(winHandle, CSIDL_NETWORK, IDRoot);

  ZeroMemory(@BrowseInfo, SizeOf(TBrowseInfo));

  ZeroMemory(@path, MAX_PATH);

  BrowseInfo.hwndOwner := winhandle;

  BrowseInfo.pidlRoot := IDRoot;

  BrowseInfo.lpszTitle := PChar(title);

  BrowseInfo.pszDisplayName := @path;

  BrowseInfo.ulFlags:=BIF_BROWSEFORCOMPUTER;

  SHBrowseForFolder(BrowseInfo);

end;

上一页  [1] [2]