Aufruf von Windows Snipping Tool und Remotehilfe

[Bornholdt]

Hallo,

gelingt mir nicht.

Taschenrechner geht ohne Probleme mit:

procedure Formular.TaschenRechnerClick(Sender: TObject);
begin
inherited;
winexec('Calc.exe',sw_show);
end;

oder eben mit Shellexecute.

Snippingtool.exe - das Windows Screenshot Tool - kann ich nicht aufrufen. Nichts passiert. Genauso würde ich gerne das neue Windows Fernwartungstool aufrufen: Remotehilfe (engl. Quickassist). Sowohl das Snippingtool als auch die Remotehilfe lassen sich von der Eingabeauffordeurng mittels Kommandos "Snippingtool" oder "Quickassist" öffnen analog dem Taschenrechner.
Aus Delphi heraus ebend nicht.

Ideen?
danke

VG

[Fukiszo]

http://www.delphipraxis.net/1390993-post16.html

Da hab ich mehrer Varianten bereitgestellt wie man Dateien ausführen kann,
für Delphi 7 programmiert.

Vielleicht hilft dir das eine oder andere,

Grüße

edit:
ps: man sollte auch angeben wo die datei herkommt (verzeichniss)

[Delphi.Narium]

Zeig' uns bitte mal Deinen vollständigen Quelltext für den Aufruf der beiden Programme per ShellExecute.

[ventiseis]

Also, bei mir funktionierts auch nicht: 64bit Windows 10 1709, SnippingTool.exe liegt unter C:\Windows\System32, eine 32-bit-Delphi-Exe schaut aber unter C:\WINDOWS\SysWOW64 rein, da gibts kein Snippingtool.exe. Entsprechend liefert winexec das Ergebnis 2: File not found.

[Delphi.Narium]

Kann man denn das Programm nicht mit 'ner vollständigen Pfadangabe aufrufen?

Muss man das denn Windows überlassen, welches Programm es konkret aufruft?

[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...

[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'...