Microsoft Paint Pfad ?

[thomas2009]

Hallo

ich verwende diesen Code um das Bild mit MS Paint zu öffnen:

Delphi-Quellcode:

ShellExecute(Application.Handle,'open', pchar('mspaint.exe'), pchar(ExtractFilePath(Application.ExeName)+'test.bmp') , Nil, SW_Show);

in meinem PC funktioniert aber in einem anderen PC nicht.
Es wird Eine Meldung angezeigt, dass der Path nicht gefunden !

Wie soll ich den Pfad richtig eingeben?

[DeddyH]

Woher willst Du denn wissen, ob Paint überhaupt installiert ist?

[thomas2009]

Zitat:

Zitat von DeddyH

Woher willst Du denn wissen, ob Paint überhaupt installiert ist?

MS Paint wird mit Windows immer mit installiert natürlich
Wenn ich den Befehl "mspaint" ausführe dann startet das Programm MS Paint

Es liegt nicht an MS Paint sondern an den Pfad


Das Bild ist in : c://program/Test/test.bmp
aber die Meldung sagt : Path not found : c://program.bmp !!!

[DeddyH]

So? Ich kann Paint auch deinstallieren, wenn ich nicht irre. Naja, wie dem auch sei, Du kannst es mal hiermit versuchen (unter XP, Vista weiß ich nicht):

Delphi-Quellcode:

function SysDir: string;
begin
  SetLength(Result,MAX_PATH);
  if GetSystemDirectory(PChar(Result),Pred(MAX_PATH)) > 0 then
    SetLength(Result,StrLen(PChar(Result)))
  else
    begin
      SetLength(Result,0);
      MessageBox(0,
                 PChar(SysErrorMessage(GetLastError)),
                 'Fehler',
                 MB_OK or MB_ICONERROR);
    end;
end;

[DeddyH]

Ach, der Pfad. Liegt das Bild wirklich im selben Ordner wie Dein Programm?

[thomas2009]

Zitat:

Zitat von DeddyH

Ach, der Pfad. Liegt das Bild wirklich im selben Ordner wie Dein Programm?

ja
aber hier hat jemand das selbe Problem auch gehabt :
http://www.delphipraxis.net/internal...t.php?t=118329

[DeddyH]

Dann weißt Du ja, was zu tun ist.

[thomas2009]

Zitat:

Zitat von DeddyH

Dann weißt Du ja, was zu tun ist.

Sicher bin ich aber nicht. auf jeden Fall, es hat mit dem Code geklappt :

Delphi-Quellcode:

PChar('"' + Dateiname + '"')