Delphi³£ÓôúÂë»ã×Ü

¡ó[DELPHI]²úÉúÊó±êÍ϶¯Ð§¹û
ͨ¹ýMouseMoveʼþ¡¢DragOverʼþ¡¢EndDragʼþʵÏÖ£¬ÀýÈçÔÚPANELÉϵÄLABEL£º
var xpanel,ypanel,xlabel,ylabel:integer;
PANELµÄMouseMoveʼþ£ºxpanel:=x;ypanel:=y;
PANELµÄDragOverʼþ£ºxpanel:=x;ypanel:=y;
LABELµÄMouseMoveʼþ£ºxlabel:=x;ylabel:=y;
LABELµÄEndDragʼþ£ºlabel.left:=xpanel-xlabel;label.top:=ypanel-ylabel;
¡ó[DELPHI]È¡µÃWINDOWSĿ¼
uses shellapi;
getwindowsdirectory(windir,sizeof(windir));
»òÕß´Ó×¢²á±íÖжÁÈ¡£¬Î»Öãº
HKEY_LOCAL_MACHINE\Software\Microsoft\Windows\CurrentVersion
SystemRoot¼ü£¬È¡µÃÈ磺C:\WINDOWS
trunc()
¡ó[DELPHI]¹ØÓÚÎļþ¡¢Ä¿Â¼²Ù×÷
Chdir('c:\abcdir');תµ½Ä¿Â¼
Mkdir('dirname');½¨Á¢Ä¿Â¼
Rmdir('dirname');ɾ³ýĿ¼
GetCurrentDir;//È¡µ±Ç°Ä¿Â¼Ãû£¬ÎÞ'\'
Getdir(0,s);//È¡¹¤×÷Ŀ¼Ãûs:='c:\abcdir';
Deletfile('abc.txt');//ɾ³ýÎļþ
Renamefile('old.txt','new.txt');//Îļþ¸üÃû
ExtractFilename(filelistbox1.filename);//È¡ÎļþÃû
ExtractFileExt(filelistbox1.filename);//È¡Îļþºó׺
¡ó[DELPHI]´¦ÀíÎļþÊôÐÔ
attr:=filegetattr(filelistbox1.filename);
if (attr and faReadonly)=faReadonly then ... //Ö»¶Á
if (attr and faSysfile)=faSysfile then ... //ϵͳ
if (attr and faArchive)=faArchive then ... //´æµµ
if (attr and faHidden)=faHidden then ... //Òþ²Ø
¡ó[DELPHI]Ö´ÐгÌÐòÍâÎļþ
WINEXEC//µ÷ÓÿÉÖ´ÐÐÎļþ
winexec('command.com /c copy *.* c:\',SW_Normal);
winexec('start abc.txt');
ShellExecute»òShellExecuteEx//Æô¶¯Îļþ¹ØÁª³ÌÐò
function executefile(const filename,params,defaultDir:string;showCmd:integer):THandle;
ExecuteFile('C:\abc\a.txt','x.abc','c:\abc\',0);
ExecuteFile('http://tingweb.yeah.net','','',0);
ExecuteFile('mailto:tingweb@wx88.net','','',0);
¡ó[DELPHI]È¡µÃϵͳÔËÐеĽø³ÌÃû
var hCurrentWindow:HWnd;szText:array[0..254] of char;
begin
hCurrentWindow:=Getwindow(handle,GW_HWndFrist);
while hCurrentWindow <> 0 do
begin
if Getwindowtext(hcurrnetwindow,@sztext,255)>0 then listbox1.items.add(strpas(@sztext));
hCurrentWindow:=Getwindow(hCurrentwindow,GW_HWndNext);
end;
end;
¡ó[DELPHI]¹ØÓÚ»ã±àµÄǶÈë
A