Delphi ´ò¿ªÎļþ¼Ð·½·¨
µÚÒ»ÖÖ·½·¨,ʹÓÃSelectDirectory º¯Êý ,ÔÚShellApiÖÐ
procedure TForm2.BtSelectPathClick(Sender: TObject);
var
strCaption,strDirectory:String;
wstrRoot:WideString;
begin
strCaption:='ÕâÊÇä¯ÀÀÎļþ¼ÐµÄ˵Ã÷ÎÄ×Ö£¬¿ÉÒÔ¸ù¾ÝÐèÒª½øÐÐÊéд¡£'
+#13#10+'Ò»°ã¶þÐÐÎÄ×Ö¾ÍÂúÁË¡£';
//¸Ã²ÎÊýÊÇä¯ÀÀÎļþ¼Ð´°¿ÚµÄÏÔʾ˵Ã÷²¿·Ö
wstrRoot:='';
//Õâ¸ö²ÎÊý±íʾËùÏÔʾµÄä¯ÀÀÎļþ¼Ð´°¿ÚÖеĸùĿ¼£¬Ä¬ÈÏ»ò¿Õ±íʾ“ÎҵĵçÄÔ”¡£
SelectDirectory(strCaption,wstrRoot,strDirectory);
EdLocalPath.Text:=strDirectory;
end;
µÚ¶þÖÖ·½·¨
ÒªÇó£ºÀûÓÃWin32 API SHBrowseForFolder¿ªÆôÒ»¸öÑ¡ÔñÎļþĿ¼µÄ¶Ô»°¿ò£¬Ô¤Ïȶ¨Î»µ½Ä¬ÈϵÄĿ¼£¬×îºó·µ»ØËùÑ¡ÔñµÄ½á¹û£¬Èç¹ûûÓнøÐÐÑ¡Ôñ£¨¼´µ¥»÷“È¡Ïû”½áÊøÑ¡Ôñ£©Ôò·µ»Ø¿Õ''¡£
´úÂëÈçÏÂ:(ÒÔÏÂÁ½¸öº¯Êý¶¨ÒåÐèÒªÔÚusesÖÐÒýÈëÁ½¸öµ¥ÔªShlObj,Windows;)
function BrowseCallbackProc(Wnd: HWND; uMsg: UINT; lParam, lpData: LPARAM): Integer stdcall;
begin
case uMsg of
BFFM_INITIALIZED: SendMessage(Wnd, BFFM_SETSELECTION, 1, lpData);
end;
Result := 0;
end;
function BrowsFolder(const Folder: string): string;
var
TitleName: string;
lpItemID: PItemIDList;
BrowseInfo: TBrowseInfo;
DisplayName: array[0..MAX_PATH] of char;
TempPath: array[0..MAX_PATH] of char;
begin
Result := Folder;
FillChar(BrowseInfo, sizeof(TBrowseInfo), #0);
BrowseInfo.hwndOwner := GetActiveWindow;
BrowseInfo.pszDisplayName := @DisplayName;
TitleName := 'ÇëÑ¡ÔñÒ»¸öĿ¼';
BrowseInfo.lpszTitle := PChar(TitleName);
BrowseInfo.ulFlags := BIF_RETURNONLYFSDIRS;
BrowseInfo.lpfn := BrowseCallbackProc;
BrowseInfo.lParam := Integer(PChar(Folder));
lpItemID := SHBrowseForFolder(BrowseInfo);
if Assigned(lpItemId) then
begin
SHGetPathfromIDList(lpItemID, TempPath);
GlobalFreePtr(lpItemID);
Result := string(TempPath);
end
else
Ïà¹ØÎĵµ£º
1.ÏÂÔØJNativeµÄ°ü
JNative-1.3.2ÏÂÓÐÈý¸öÎļþ£ºJNativeCpp.dll£¬libJNativeCpp.so£¬JNative.jar¡£
JNativeCpp.dll¿½µ½windows/system32Ŀ¼ÏÂ
libJNativeCpp.soΪLinuxÖÐʹÓõÄÎļþ
JNative.jarÀ©Õ¹°ü¿½µ½%JAVA_HOME%\jre\lib\extÏ»òÕßµ¼Èëµ½¹¤³ÌÖÐ
2.JnativeÖÐʹÓõ½µÄһЩÀàºÍ·½·¨
org
.xvolks
.jnative
.Jnat ......
¿ª·¢Õß¶¼Ï£Íû×Ô¼ºµÄ³ÌÐòÓÐÒ»¸öÓѺõĽçÃæ£¬´Ëʱ£¬Ò»¸öÉú¶¯»îÆÃ¡¢ÓбíÏÖÁ¦µÄ¹â±ê¾Í±Ø²»¿ÉÉÙÁË¡£Windows ȱʡÌṩ22ÖÖ±ê×¼¹â±ê¹©ÔÚ³ÌÐòÖе÷Ó㬵«¶ÔÒ»¸öÇóÐÂÇó±äµÄ³ÌÐòÔ±À´Ëµ£¬±ê×¼¹â±ê¾Í²»ÄÜÂú×ãÒªÇóÁË£¬ÐèҪʹÓÃ×Ô¼ºµÄ¹â±ê£¬ÄÇô£¬ÔÚ³ÌÐòÖÐÔõÑùʹÓÃ×Ô¼ºµÄ¹â±êÄØ£¿ ¡¡¡¡¡ñ¹â±ê×ÊÔ´µÄ»ñµÃ ¡¡¡¡ÒªÊ¹ÓÃ×Ô¶¨Òå¹â±ê£¬±ØÐëÏȵõ½Õâ ......
TCollection ÊÇTCollectionItenm¶ÔÏóµÄÒ»¸öÈÝÆ÷¡£
Àà¹ØÏµTObject→TPersistent
¡¡¡¡Ã¿Ò»¸öTCollection¶¼ÓµÓÐÒ»×éTCollectionItem¶ÔÏó¡£
¡¡¡¡ÔÚÆäItemsÊôÐÔÊý×éÖУ¬TCcllection±£´æ¼¯ºÏÏîÄ¿µÄÒ»¸öϱꡣCount ÊôÐÔ°üº¬Á˼¯ºÏµÄÏîÄ¿ÊýÁ¿¡£Ê¹ÓÃAddºÍClear·½·¨¿ÉÒÔÏò¼¯ºÏÖмÓÈëÏîÄ¿ºÍ´Ó¼¯ºÏÖÐɾ³ýÏîÄ¿¡£
¡¡¡¡´ÓTCollect ......
TStringsÊÇÒ»¸ö³éÏóÀ࣬ÔÚʵ¼Ê¿ª·¢ÖУ¬ÊdzýÁË»ù±¾ÀàÐÍÍ⣬ӦÓõÃ×î¶àµÄ¡£
³£¹æµÄÓ÷¨´ó¼Ò¶¼ÖªµÀ£¬ÏÖÔÚÀ´ÌÖÂÛËüµÄһЩ¸ß¼¶µÄÓ÷¨¡£
ÏȰÑÒªÌÖÂ۵öÊôÐÔÁгöÀ´£º
1¡¢CommaText
2¡¢Delimiter & DelimitedText
3¡¢Names & Values & ValuefromIndex
ÏÈ¿´µÚÒ»¸ö£ºCommaText¡£ÔõôÓÃÄØ£¿ÓôúÂë˵»°£º
const ......
Wma ¸ñʽ¸èÇúÐÅÏ¢Îļþ½á¹¹£¬¸½¶ÁдÀࣨDelphi£©
linle @ 2006-05-01 13:10
ÒÔǰµÄÒ»µãÑо¿£¬¹«¿ªºÃÁË£¬ÓÐʲôÒÉÎÊ¿ÉÒÔºÍÎÒÌÖÂÛ
Èý¸ö¶àÔÂǰµÄ´úÂ룬£¬±È½ÏÓ×ÖÉ£¬´ó¼Ò½«¾ÍһϰÉ
Îļþ½á¹¹Ê¾Òâͼ
¸ñʽµÄ¼òµ¥ËµÃ÷£º
Èçͼ1£¬Ã¿Ò»¸öWMAÎļþ£¬ËüµÄÍ·16¸ö×Ö½ÚÊǹ̶¨µÄ£¬ÎªÊ®Áù½øÖ ......