Ò׽ؽØÍ¼Èí¼þ¡¢µ¥Îļþ¡¢Ãâ°²×°¡¢´¿ÂÌÉ«¡¢½ö160KB

ÔΣ¬delphi 7 ÓÐÁ½¸ö°æ±¾µÄ SelectDirectory

ÒÔǰÓùýdelphi 2007µÄÕâ¸öº¯ÊýµÄ£¬²ÎÊý³¬¶à£¬ÏÖÔڵĹ«Ë¾ÓÃD7£¬½á¹ûÍøÉÏÒ»²éÕâ¸öº¯Êý£¬Óò»³ÉÁË£¬Ô­À´ÎÒÓôíÁ˺¯Êý
unit QDialogs;
{$IFDEF LINUX}
function SelectDirectory(const Caption, Root: WideString;
  var Directory: WideString; ShowHidden: Boolean = False): Boolean;
{$ENDIF}
{$IFDEF MSWINDOWS}
function SelectDirectory(const Caption: string; const Root: WideString;
  out Directory: WideString): Boolean;
{$ENDIF}
{$IFDEF LINUX}
function SelectDirectory(const Caption, Root: WideString;
  var Directory: WideString; ShowHidden: Boolean = False): Boolean;
var
  Dlg: TDirSelDlg;
  SaveDir: string;
begin
  Dlg := TDirSelDlg.Create(Application);
  try
    SaveDir := Directory;
    Result := Dlg.GetDirectory(Caption, Root, Directory, ShowHidden);
  finally
    Dlg.Free;
  end;
end;
{$ENDIF}
function SelectDirectory(const Caption: string; const Root: WideString;
  out Directory: WideString): Boolean;
var
  WindowList: Pointer;
  BrowseInfo: TBrowseInfo;
  Buffer: PChar;
  RootItemIDList, ItemIDList: PItemIDList;
  ShellMalloc: IMalloc;
  IDesktopFolder: IShellFolder;
  Eaten, Flags: LongWord;
  ActiveWindow: HWND;
begin
  Result := False;
  Directory := '';
  FillChar(BrowseInfo, SizeOf(BrowseInfo), 0);
  if (ShGetMalloc(ShellMalloc) = S_OK) and (ShellMalloc <> nil) then
  begin
    Buffer := ShellMalloc.Alloc(MAX_PATH);
    try
      RootItemIDList := nil;
      if Root <> '' then
      begin
        SHGetDesktopFolder(IDesktopFolder);
        IDesktopFolder.ParseDisplayName(0, nil,
          POleStr(Root), Eaten, RootItemIDList, Flags);
 


Ïà¹ØÎĵµ£º

DelphiÖÐWebBrowser¿Ø¼þµÄbug¼°½â¾ö·½°¸

¡¡¡¡DelphiÓïÑÔ£¬ÎÞÂÛÊÇ´Ó¿ª·¢ËÙ¶È¡¢»¹ÊÇÔËÐÐËÙ¶È¡¢»¹ÊDZàÒëËÙ¶È¡¢»¹ÊDZàÒëÖ®ºóµÄÖ´ÐÐÎļþÌå»ý£¬¶¼ÊÇÊýÒ»Êý¶þµÄ¡£Òò´Ë±»×÷Ϊ¹²ÏíÈí¼þ¡¢¿ª·¢²úÆ·¡¢ÖÆ×÷“ÂÌÉ«Èí¼þ”µÄÊ×Ñ¡¡£µ«ÊÇ£¬ÓÉÓÚÖî¶àÔ­Òò£¬DelphiÖУ¬ÓÐһЩ¿Ø¼þ£¬´æÔÚһЩbug¡£²»ÂÛ¹ã´ó¼¼ÊõÈËÔ±ÈçºÎ·´Ó¦£¬Delphi¹Ù·½¾ÍÊÇ“ÊÓ¶ø²»¼û”¡£ÓÐÎÊÌ⣬È˼ ......

Delphi 2010ϰ²×°IOComp

¼¼Êõ½»Á÷,DH½²½â. IOCompÊÇÒ»Ì×ÓÃÓÚ¹¤ÒµµÄͼÐλ¯¿Ø¼þ.
¿´ÏÂÔõôÔÚD2010ÏÂÃæ°²×°°É.Ê×ÏÈÏÂÔØµØÖ·,À´Ö® ºÐ×Ó,Download Here ½âѹËõºó,ÐèÒª×öµÄ²½Öè:
1 Ìí¼Ólib path
Tools –> Options –> Delphi Options

½«ÄãµÄ½âѹËõĿ¼Ìí¼Ó½øÀ´.
2 ɾ³ýÏà¹ØPNGµ¥Ôª.
ÒòΪ2010ÖÐ ......

³ÏƸ£ºDelphiÈí¼þ¹¤³Ìʦ

¾ßÌåÒªÇó£º
1¡¢¼ÆËã»ú¼°Ïà¹Ø×¨Òµ×¨¿ÆÒÔÉÏѧÀú£¬ÓÐ2ÄêÒÔÉϵŤ×÷¾­Ñ飻
2¡¢¾«Í¨Delphi²¢ÓÐÔËÓÃDelphi³É¹¦¿ª·¢ÏîÄ¿µÄ¾­Ñ飻
3¡¢ÊìÏ¤ÍøÂ翪·¢£¬Óпؼþ¿ª·¢¾­ÑéÕßÓÅÏÈ¿¼ÂÇ£»
4¡¢ÊìϤÈí¼þ¹¤³Ì£¬¾ßÓÐÁ¼ºÃµÄ¿ª·¢Ï°¹ß£¬ÄÜÕýȷʹÓð汾¿ØÖƹ¤¾ß£»
5¡¢¾ßÓкÜÇ¿µÄÍŶӺÏ×÷ºÍ³Ô¿àÄÍÀ͵ľ«Éñ£¬¾ßÓÐһ˿²»¹¶µÄ¹¤×÷×÷·çºÍÈÏÕæ¸ºÔðµÄ ......

OracleÐÔÄÜÓÅ»¯ÓëDelphi´úÂë

OracleÐÔÄÜÓÅ»¯ÓëDelphi´úÂë

¸ÕѧÁ˵ãoracle·½ÃæµÄ֪ʶ£¬¸Ð¾õÒÔǰд´úÂëֻƾϲºÃд£¬ÍêȫûÓÐÉԵÓÉ£¬µ¼ÖÂÔÚÄÚÐÐÈË¿´À´£¬Ð´µÄ¶¼ÊÇÀ¬»ø´úÂ룬ÏÖÔھͰÑѧµ½µÄһЩ¶«Î÷д³öÀ´£¬Ò²ËãÊǸø¸ÕÈëÃŵÄÅóÓÑÒ»µã°ïÖú°É¡£
ÒÔǰ£¬Ð´Êý¾Ý¿â·ÃÎÊ´úÂ룬¸Ð¾õºÜ¼òµ¥£¬²»¾ÍÊÇsqlÓï¾äÂËùÒÔʲôÓï¾ä¶¼ÊÇÕâÑùд£º
A£º
 
......
© 2009 ej38.com All Rights Reserved. ¹ØÓÚE½¡ÍøÁªÏµÎÒÃÇ | Õ¾µãµØÍ¼ | ¸ÓICP±¸09004571ºÅ