Hi,
hab das hier mal schnell erstellt. Vielleicht hilft es dir ja weiter:
Delphi-Quellcode:
procedure TForm1.Button1Click(Sender: TObject);
var
i : Integer;
begin
i := 1;
repeat
ShowMessage(Chr(i + 64) + '
99.doc');
if ShellExecute(
Handle, '
open', PChar(Chr(i + 64) + '
99.doc'),
nil,
nil, SW_SHOWMAXIMIZED) <= 32
then
Inc(i)
else i := 27;
until i = 27;
end;
PS.: Verwende doch bitte auch beim nächsten Mal die Delphi Tags. Delphi Helm oben in der Mitte beim Schreiben deines Beitrages. Und dann einfach dort den Code reinposten.