|
|
导航: |
论坛 -> DELPHI技术
斑竹:liumazi,sephil |
|
作者: |
|
2003/6/2 17:00:52 |
标题: |
|
加入我的收藏 |
楼主: |
…… 被禁用帐号,帖子内容自动屏蔽! ……
----------------------------------------------
我爱Delphi,我爱所有爱Delphi的朋友 |
作者: |
boy (阿門) |
★☆☆☆☆ |
-
|
盒子活跃会员 |
|
2003/6/3 2:40:16 |
1楼: |
列出目錄內所有內容 procedure ExecuteShellCommand(cmdline: string; hidden: Boolean); const flags: array [Boolean] of Integer = (SW_SHOWNORMAL, SW_HIDE); var cmdbuffer: array [0..MAX_PATH] of Char; begin GetEnvironmentVariable('COMSPEC', cmdBUffer, SizeOf(cmdBuffer)); StrCat(cmdbuffer, ' /C '); StrPCopy(StrEnd(cmdbuffer), cmdline); WinExec(cmdbuffer, flags[hidden]); end;
procedure TForm1.Button4Click(Sender: TObject); begin ExecuteShellCommand('dir a:\ > c:\dirlist.txt', True); end;
----------------------------------------------
|
|