Forum: Programmieren allgemein
Delphi
by medirar,
29. Aug 2011
ahh. Meinst Du so?
begin
if FileExists(Pchar(GetDirFromFilename(edit1.Text+'.jpg', 'G:\PICS', )))
then
ShellExecute(0,
'open',
'C:\Program Files\IrfanView\i_view32.exe',
Pchar(GetDirFromFilename(edit1.Text+'.jpg', 'G:\PICS', )),
nil,
Forum: Programmieren allgemein
Delphi
by medirar,
29. Aug 2011
Sorry!:-D
Das Bild öffnet nur wenn es vorhanden ist...wenn nicht kommt eine Fehlermeldung!....
Forum: Programmieren allgemein
Delphi
by medirar,
29. Aug 2011
Hi! ich bin gerade eben nach hause gekommen und habs ausprobiert alles funktioniert wunderbar....echt geil! Vielen herzlichen Dank!
nur eine Fehlerroutine funktioniert nicht. Wird hier komplizierter? :shock:
Forum: Programmieren allgemein
Delphi
by medirar,
29. Aug 2011
So? :shock:
ShellExecute(0,'open','i_view32.exe',Pchar (edit1.Text),'C:\Software\irfanview\',SW_SHOW)
Ich habs mit Edit1.Text gemacht zur direkten eingabe!
Forum: Programmieren allgemein
Delphi
by medirar,
29. Aug 2011
Das ist es! Super Genial Ich werde das mal heute abend ausprobieren. Nur ist mir nicht klar wie ich das jetzt mit IrfanView direkt öffnen kann.:shock:
Forum: Programmieren allgemein
Delphi
by medirar,
29. Aug 2011
Wie meinst Du das? Ich kenne das nicht:shock:
Ich habe mal ein Screenshot von der Struktur gemacht!
Forum: Programmieren allgemein
Delphi
by medirar,
29. Aug 2011
Ja, Der Dateiname wird eingegeben ....zerlegt....und die Datei öffnet sich.....:shock:
Forum: Programmieren allgemein
Delphi
by medirar,
29. Aug 2011
Ja die sind immer gleichlang!
Forum: Programmieren allgemein
Delphi
by medirar,
29. Aug 2011
WOW, ich muss das mal heute abend ausprobieren! Vielen herzlichen Dank! :-D
:shock: