Jak wyświetlić listę plików z danego katalogu w notatniku
Jest to mój pierwszy FAQ w 4programmers, więc proszę o wyrozumiałość.
uses
ShellAPI;
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', CMBbuffer, SizeOf(CMDbuffer));
StrCat(CMDbuffer, ' /C ');
StrPCopy(StrEnd(CMDbuffer), CMDline);
WinExec(CMDbuffer, Flags[Hidden]);
end;
procedure TForm1.Button1Click(Sender: TObject);
begin
ExecuteShellCommand('dir C:\ > C:\ListaPlikow.txt', True);
ShellExecute(Handle, 'open', 'notepad', 'C:\ListaPlikow.txt', nil, SW_SHOW);
end;
W naszym przypadku zostanie wyświetlona zawartość katalogu C:
Jeżeli chcesz wyświetlić katalog Windows wpisz 'dir C:\Windows > ...
No niezły artykuł, ale można też inaczej.
A i mam pytanko... dla czego usuwa mi ukośniki (nie napisałem tego znaku bo tak czy siak mi usunie)?
A może dać przy tworzeniu artykułu pole 'Keywords', przecież nie zawsze w słowach artu występują słowa kluczowe... :>
P.S.
Doskonały pomysł z 'wyrazy pochodne' - szczególnie jeśli chodzi o info dla wyszukiwarki