Verzeichnis aus Delphi anzeigen

Question

Ich möchte den Inhalt eines Verzeichnisses mit DOS-Befehlen aus Delphi (7) anzeigen. Verwenden von Win10 - 64

Das folgende Programm zeigt die DOS-Shell an, zeigt jedoch nicht die Verzeichnisinhalte an. Was ist falsch an meinem Code?

unit Unit1; 
interface 
uses 
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, 
Dialogs, StdCtrls, shellapi; 
type 
    TForm1 = class(TForm) 
    procedure FormCreate(Sender: TObject); 
    private 
    { Private declarations } 
    public 
    { Public declarations } 
    end; 
var 
    Form1: TForm1; 

    implementation 

{$R *.dfm} 

procedure TForm1.FormCreate(Sender: TObject); 
var i : integer; 
begin 
    i := ShellExecute(Handle, nil, 'cmd.exe', PChar(' dir'), nil, SW_SHOW); 
    caption := inttostr(i); 
end; 

end. 

Answer 1

Wenn Sie Ihren Code unter Windows 10 ausführen, wird 2 zurückgegeben, also ERROR_FILE_NOT_FOUND.

Ich habe es zu arbeiten, sowohl auf 32-Bit- und 64-Bit-Zielplattformen, indem sie sie zu Ändern dieser:

var 
    ComSpec: string; 
    retval: HINSTANCE; 
begin 
    ComSpec := GetEnvironmentVariable('comspec'); 
    retval := ShellExecute(Handle, nil, PChar(comspec), '/k dir', nil, SW_SHOW); 
    if retval <= 32 then 
    Caption := Format('Error, return value = %d', [retval]) 
    else 
    Caption := 'Success'; 
end; 

Die /k sagt eine neue Instanz von cmd.exe laufen und halten Sie das Fenster geöffnet . Führen Sie für weitere Details cmd /? von einer Eingabeaufforderung aus.

Beachten Sie, dass die Fehlerbehandlung von ShellExecute sehr begrenzt ist. Wenn Sie umfassend nach Fehlern suchen möchten, müssen Sie stattdessen ShellExecuteEx verwenden.