000) shr 16;
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] 没有相关教程
|