Listbox Speichern, + Listbox und Shellexecute

[Binärbaum]

Zitat von jfheins:

Wenn es einfach nur das tun muss, reicht folgendes:

Delphi-Quellcode:

program Project1;

uses
  Forms, ShellAPI, Windows;

var
 i: Cardinal;
 Programme: Array[0..2] of String = ('notepad', 'calc', 'iexplore');

{$R *.res}

begin
  Application.Initialize;
  Application.Run;

for i := 0 to high (Programme) do
  Shellexecute(Application.Handle, nil, PChar(Programme[i]), nil, nil, SW_SHOW);

end.

Für diesen Zweck würde doch auch eine einfache Konsolen-Anwendung reichen. Dann spart man Ressourcen ein und der Programmstart dauert nicht so lange, wie bei einer "richtigen" Anwendung.
Also in etwa so:

Delphi-Quellcode:

program Project1;
{$APPTYPE CONSOLE}

uses
   ShellAPI, Windows;

var
 i: Cardinal;
 Programme: Array[0..2] of String = ('notepad', 'calc', 'iexplore');

begin
 for i := 0 to high (Programme) do
  Shellexecute(0, nil, PChar(Programme[i]), nil, nil, SW_SHOW);
end.

MfG
Binärbaum