Ich hab jetzt mal versucht das ganze anders zu lösen nur komm ich mit dem wenigen wissen nicht ganz weiter bzw. bin ein wenig überfordert
Funktion möchte ich die gleiche verwenden.
uses ShellApi;
procedure TForm1.Button1Click(Sender: TObject);
begin
if ShellExecute(Application.Handle,
'open',
PChar('C:\Test\a99.doc'),
nil, nil, SW_NORMAL) <= 32 then
ShowMessage('Es ist ein Fehler aufgetreten');
end;
nachdem ich jetzt aber nicht in jedem ordner eine a99 doc habe sondern auch mal
b99 oder c99 (nur der erste Buchstabe ändert sicht) dachte ich mir ich wiederhole einfach die komplette funktion ohne Showmessage.
procedure TForm1.Button6Click(Sender: TObject);
begin
if ShellExecute(Application.Handle,
'open',
PChar('C:\Test\a99.txt'),
nil, nil, SW_NORMAL) <= 32 then
shellExecute(Application.Handle,
'open',
PChar('C:\Test\b99.txt'),
nil, nil, SW_NORMAL) <= 32 then
ShellExecute(Application.Handle,
'open',
PChar('C:\Test\c99.txt'),
nil, nil, SW_NORMAL) <= 32 then
ShowMessage('Es ist ein Fehler aufgetreten');
end;
end;
end;
end.
Durch den "gerade eben" Einstieg bin ich nicht so versiert und finde den fehler nicht.
vielleicht könnt ihr mir nochmal helfen
EDIT: ich wollte eigentlich, dass wenn die erste funktion eine datei mit a99 findet, es diese öffnet und dann
beendet die funktion. Wenn das nicht der fall sein sollte soll das ganze bis z99 weitergehen. irgendeine von a-z gibt es immer.
aber da hab ich ja dann total scheiße gebaut glaub ich