AGB  ·  Datenschutz  ·  Impressum  







Anmelden
Nützliche Links
Registrieren
Thema durchsuchen
Ansicht
Themen-Optionen

ShellExecuteEx -> dcc32.exe

Ein Thema von ATS3788 · begonnen am 27. Mai 2013 · letzter Beitrag vom 31. Mai 2013
Antwort Antwort
Benutzerbild von ATS3788
ATS3788

Registriert seit: 18. Mär 2004
Ort: Kriftel
646 Beiträge
 
Delphi XE Starter
 
#1

ShellExecuteEx -> dcc32.exe

  Alt 27. Mai 2013, 13:31
Hallo
Ich habe noch nie was mit ShellExecuteEx gemacht nun probiere ich ein wenig rum
und bin auf
http://www.delphipraxis.net/165886-s...x-problem.html
gestossen.

Ich starte eine eine Batch das funktioniert auch gut.

Delphi-Quellcode:
dummyPath := '"' + ExePath + 'RC\MakeResDll.bat' + '"';
iCE:= shellapi.shellExecute(0, 'open', pChar(dummyPath), nil, nil, SW_MAXIMIZE);
Aber schöner wärs schon mit der folgenden function,
ich bekomme auch ein ShellExecuteEx(@Sei) = true hin
nur wird die dll nicht erstellt.

Ich übergebe

FileName = Pfad + dcc32.exe
Directory = Ausgabepfad
Parameter = Pfad von File .dpr
Verb = '' = Nil;
CmdShow = 1;


Delphi-Quellcode:
function ShellExecAndWait(const FileName, Directory, Parameters, Verb: string; CmdShow: Integer): Boolean;
var
   Sei: TShellExecuteInfo;
begin
   FillChar(Sei, SizeOf(Sei), #0);
   Sei.cbSize := SizeOf(Sei);
   Sei.fMask := SEE_MASK_DOENVSUBST or SEE_MASK_FLAG_NO_UI or SEE_MASK_NOCLOSEPROCESS;
   Sei.lpFile := PCharOrNil(FileName);
   Sei.lpDirectory := PCharOrNil(Directory);
   Sei.lpParameters := PCharOrNil(Parameters);
   Sei.lpVerb := PCharOrNil(Verb);
   Sei.nShow := CmdShow;
   Result := ShellExecuteEx(@Sei);
   if Result then
   begin
     WaitForInputIdle(Sei.hProcess, INFINITE);
     WaitForSingleObject(Sei.hProcess, INFINITE);
     CloseHandle(Sei.hProcess);
   end;
end;
Meine Frage gibt es eine Möglichkeit das das cmd Fenster nicht geschlossen wird
um zu sehen was ich falsch mache oder mache ich generell einen Denkfehler
Martin MIchael
  Mit Zitat antworten Zitat
Benutzerbild von DeddyH
DeddyH

Registriert seit: 17. Sep 2006
Ort: Barchfeld
27.625 Beiträge
 
Delphi 12 Athens
 
#2

AW: ShellExecuteEx -> dcc32.exe

  Alt 27. Mai 2013, 13:42
Schreib als letzte Zeile in die Batch-Datei ein "pause" (ohne Anführungszeichen).
Detlef
"Ich habe Angst vor dem Tag, an dem die Technologie unsere menschlichen Interaktionen übertrumpft. Die Welt wird eine Generation von Idioten bekommen." (Albert Einstein)
Dieser Tag ist längst gekommen
  Mit Zitat antworten Zitat
Benutzerbild von ATS3788
ATS3788

Registriert seit: 18. Mär 2004
Ort: Kriftel
646 Beiträge
 
Delphi XE Starter
 
#3

AW: ShellExecuteEx -> dcc32.exe

  Alt 27. Mai 2013, 16:31
DeddyH
Das ist nett, nur ich möchte es eben nicht als
Batch ausführen sondern mit ShellExecuteEx,
ich möchte verstehen wie diese function funktioniert mit einem
dcc32 aufruf.
Martin MIchael
  Mit Zitat antworten Zitat
Benutzerbild von ATS3788
ATS3788

Registriert seit: 18. Mär 2004
Ort: Kriftel
646 Beiträge
 
Delphi XE Starter
 
#4

AW: ShellExecuteEx -> dcc32.exe

  Alt 31. Mai 2013, 14:07
Eigentlich ganz einfach
Vielleicht nützt es ja mal jemanden

Delphi-Quellcode:
function PCharOrNil(const AString: string): PChar;
begin
   if AString = 'then
      Result := nil
    else
     Result := PChar(AString);
end;

function ShellExecAndWait(const FileName, Directory, Parameters, Verb: string; CmdShow: Integer): Boolean;
var
   SEI: TShellExecuteInfo;
begin
   FillChar(SEI, SizeOf(SEI), #0);
   SEI.cbSize := SizeOf(SEI);
   SEI.fMask := SEE_MASK_DOENVSUBST or SEE_MASK_FLAG_NO_UI or SEE_MASK_NOCLOSEPROCESS;
   SEI.lpFile := PCharOrNil(FileName); // Filename
   SEI.lpDirectory := PCharOrNil(Directory); // Directory
   SEI.lpParameters := PCharOrNil(Parameters); // Parameters
   SEI.lpVerb := PCharOrNil(Verb); // Verb
   SEI.nShow := CmdShow; // How display the CMD Window
   Result := ShellExecuteEx(@SEI);
   if Result then
   begin
     WaitForInputIdle(SEI.hProcess, INFINITE);
     WaitForSingleObject(SEI.hProcess, INFINITE);
     CloseHandle(SEI.hProcess);
   end;
end;

procedure TForm1.Button2Click(Sender: TObject);
const
Dcc32Path = 'D:\Users\xyz\Documents\RAD Studio\MyProjects\SetWinIcon\Debug\SetIcon.d\RC\cfg\dcc32.exe';
DprPath = 'D:\Users\xyz\AppData\Local\Temp\RC\justtest.dpr';
OutPutPath = 'D:\Users\xyz\Pictures';
begin

if ShellExecAndWait(Dcc32Path , OutPutPath , DprPath ,'open', 1) then
self.Color := clGreen
else
self.Color := clFuchsia;
end;
Martin MIchael
  Mit Zitat antworten Zitat
Antwort Antwort


Forumregeln

Es ist dir nicht erlaubt, neue Themen zu verfassen.
Es ist dir nicht erlaubt, auf Beiträge zu antworten.
Es ist dir nicht erlaubt, Anhänge hochzuladen.
Es ist dir nicht erlaubt, deine Beiträge zu bearbeiten.

BB-Code ist an.
Smileys sind an.
[IMG] Code ist an.
HTML-Code ist aus.
Trackbacks are an
Pingbacks are an
Refbacks are aus

Gehe zu:

Impressum · AGB · Datenschutz · Nach oben
Alle Zeitangaben in WEZ +1. Es ist jetzt 05:17 Uhr.
Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024 by Thomas Breitkreuz