Aufruf von Windows Snipping Tool und Remotehilfe

[ventiseis]

Eventuell so:

  ShellExecute(Application.Handle, 'open', pchar(ExpandEnvStr('%windir%\sysnative\SnippingTool.exe')), nil, nil, sw_show); Siehe hier:

• ExpandEnvStr
• Sysnative

[Bornholdt]

beschriebenen Ansätze klappen bei mir nicht!

anbei mein Code:
procedure Formular.SnippingToolClick(Sender: TObject);
begin
inherited;
// winexec('Snippingtool.exe',sw_show);
ShellExecute(Application.Handle, 'open', pchar('c:\windows\system32\SnippingTool.exe'), nil, nil, sw_show);
end;

Quickassist ist eine "neue" WIndows 10 App. Das macht es da noch komplizierter...

[ventiseis]

Hast du das mit dem Sysnative-Pfad auch versucht? Oder verwendest du kein 64bit? Alle Zugriffe auf C:\Windows\System32 von einer 32-bit Anwendung werden bei einem 64-bit Windows auf C:\windows\SysWOW64 umgeleitet, da gibts kein Snippingtool.

Siehe MSDN

[Delphi.Narium]

Bitte den Quelltext mal ändern:

Delphi-Quellcode:

procedure Formular.SnippingToolClick(Sender: TObject);
var
 iError : Integer;
begin
  iError := ShellExecute(Application.Handle, 'open', pchar('c:\windows\system32\SnippingTool.exe'), nil, nil, sw_show);
  if iError < 33 then begin
    ShowMessage(Format('Fehler: %d',[iError]));
  end;
end;

Der Rückgabewert von ShellExecute könnte hilfreich sein

Fehlermeldungen/Rückgabewerte siehe: https://msdn.microsoft.com/en-us/lib...(v=vs.85).aspx

[himitsu]

Zitat:

Delphi-Quellcode:

winexec('Calc.exe',sw_show);
end;

oder eben mit Shellexecute.

Nicht "oder eben" sondern "stattdessen".
https://msdn.microsoft.com/de-de/lib...(v=vs.85).aspx


Dein Problem ist eben die Verzeichnisumleitung, denn so ist es "schwerer", wenn man wirklich mal auf so ein Verzeichnis zugreifen will.
https://msdn.microsoft.com/en-us/lib...(v=vs.85).aspx

z.B. C:\Windows\System32 ist in einem 64 Bit Windows nunmal für die 64 Bit-Programme, damit es beim Umstieg auf 64 Bit keine Probleme mit hartcodierten Pfaden gibt.
Während Windows bei 32 Bit-Programmen das Verzeichnis standardmäßig auf C:\WINDOWS\SysWOW64 umbiegt.
Meiner Meinung nach hätte man das Umbiegen bei 64 Bit machen sollen, wenn diese Programme "schrottig" programmiert sind, oder besser gleich mit Fehlermeldungen Warnmeldungen reagieren sollen.
Das selbe Problem gibt es mit weiteren Verzeichnissen und auch in der Registry.

[Bornholdt]

Nach Änderung des Quelltexts:

Fehler 2 gibt die Anwendung zurück!

wenns halt net geht, gehts halt net. )

habt ihr mal versucht die quickassist.exe aufrufen?


ich überlege mittlerweile einen umweg über ne bat datei die von der shell aus den befehl ausführt...

[Delphi.Narium]

Fehler 2 heißt:

ERROR_FILE_NOT_FOUND - The specified file was not found.

Entweder das Programm liegt nicht an der angegebenen Stelle oder es fehlen die passenden Zugriffsrechte oder ... siehe oben ...

[Fukiszo]

Eventuell blockiert ein AntiVirus-Programm dein Programm? (Stichwort Virtualisierung)

Das Beispiel von Delphi.Narium ist auf jedenfall korrekt, der Fehler liegt bei Dir.
Existiert denn "c:\windows\system32\SnippingTool.exe" ?
Überprüfe das mit Explorer. (Groß-/Kleinschreibung ist egal, aber Pfad+Name muss stimmen)

Grüße

[EWeiss]

Nein irgendetwas blockiert die Ausführung über Shellexecute.
Und ja "c:\windows\system32\SnippingTool.exe" ? existiert.

Und Schreibweise ist egal ob klein oder groß.
Auch mit meinem Programm OTTB kann ich es nicht starten auch dann nicht wenn ich eine Verknüpfung auf dem Desktop anlege.

Wenn du versuchst diese Datei mit einem Texteditor oder Dependency Walker direkt unter c:\windows\system32 zu öffnen..
ist der Texteditor leer und Dependency Walker gibt diese Meldung aus.

Wohlbemerkt ich habe diese Datei mit rechtsklick und öffnen mit "View Dependencies" gestartet.
bzw.. öffnen mit UEdit.

Das Problem liegt daran das sie als 64Bit unter System32 abgelegt ist und dann beim Aufruf die Datei unter System64 ausführt.
mit diesem Pfad c:\windows\system64\SnippingTool.exe sollte es funktionieren.
Geht zumindest dann mit "Dependency Walker" und meinem Programm OTTB als Verknüpfung auf dem Desktop.
ok wie Dalai sagt gibt es System64 Standard mäßig nicht.

gruss

[HolgerX]

Hmm..


Das funktioniert:

Zitat von ventiseis:

Eventuell so:

  ShellExecute(Application.Handle, 'open', pchar(ExpandEnvStr('%windir%\sysnative\SnippingTool.exe')), nil, nil, sw_show); Siehe hier:

• ExpandEnvStr
• Sysnative

Delphi-Quellcode:

uses
  ShellApi;


// https://stackoverflow.com/questions/2833021/how-to-get-absolute-path-from-path-with-system-path-variables
function ExpandEnvStr(const szInput: string): string;
  const
    MAXSIZE = 32768;
  begin
    SetLength(Result,MAXSIZE);
    SetLength(Result,ExpandEnvironmentStrings(pchar(szInput),
      @Result[1],length(Result)) - 1);
  end;

procedure TForm1.Button1Click(Sender: TObject);
begin
  ShellExecute(Application.Handle, 'open', pchar(ExpandEnvStr('%windir%\sysnative\SnippingTool.exe')), nil, nil, sw_show);
end;

Getestet mit Delphi 6 (somit 32 bit).

SnippingTool wird gestartet...


Ein 'System64' hab ich nicht unter meinem 64Bit W8.1, nur das bekannte 'SysWOW64'...