Windows Anwendung bei Delphi Programm einbinden

[ghost1601]

Hi Leute,

ich hoffe das ich für meine Frage das richtige Forum genommen habe.
Ich hab ein Problem, und zwar programieren wir im Unterricht mit Delphi Anfänger-Programme (z.B. Bitbefehle etc.)
nun möchte ich selber eine Art Tool programieren mit dem man einige Windows Anwendungen aufrufen kann.
Darunter den Windows Taschenrechner, die Option Windows herunter zu fahren etc.
Mein Problem liegt beim Aufrufen dieser Funktionen.
Wie kann man beispielsweise eine Windowskomponentein Delphi aufrufen?

Vielen Dank

[Daniel B]

Hallo,

benutze einfach mal die Suche ShellExecute
Für Beispiele auch gleich die Library ShellExecute

Gruss, Daniel.

[ghost1601]

Danke erstmal...

ich habe es jetzt hiermit

Delphi-Quellcode:

uses
  ShellAPI;

  //...

procedure OpenFile(FileName: string);
begin
  ShellExecute(Application.Handle, 'open', PChar('"' + FileName + '"'),
    nil, nil, SW_NORMAL);
end;

versucht, nur bekomm ich wenn ich für FileName eine Datei eintrage immer eine Fehlermeldung
[Fehler] Unit1.pas(25): E2003 Undefinierter Bezeichner: 'shutdown'

was hab ich da falsch gemacht?

[edit=r_kerber]Delphi-Tags eingefügt. Das nächste mal bitte selbst machen. Mfg, r_kerber[/edit]

[Balu der Bär]

In dem von dir soeben geposteten Quellcode kommt das Wort "shutdown" nicht vor. Ich würde also behaupten der Fehler liegt an einer anderen Stelle deines Programms. Dieser Quellcode sollte soweit ich das überblicken kann richtig sein.

//Edit: Ich könnte mir vorstellen das der Aufruf: OpenFile('shutdown'); heißen müsste. ;)

[Zacherl]

Wenn du die shutdown.exe aufrufen willst, musst du deren Parameter so übergeben:

Delphi-Quellcode:

ShellExecute(Application.Handle, 'open', PChar('"' + FileName + '"'), 
PChar(Parameter), nil, SW_NORMAL);

[ghost1601]

wo soll da jetz das Shutdown.exe hin?
Das geht jetzt nicht wirklich aus dem post hervor

Zitat:

Zitat von Balu der Bär

In dem von dir soeben geposteten Quellcode kommt das Wort "shutdown" nicht vor. Ich würde also behaupten der Fehler liegt an einer anderen Stelle deines Programms. Dieser Quellcode sollte soweit ich das überblicken kann richtig sein.

//Edit: Ich könnte mir vorstellen das der Aufruf: OpenFile('shutdown'); heißen müsste. ;)

@Balu...hast recht ich hab das falsche kopiert.
ich hatte das Shutdown unter FileName drinn

[Daniel B]

PChar(DATEINAME) hat er doch da geschrieben und der zweite PChar(WEITEREPARAMETER)

Jetzt nimm die Zeile von Ihm, da kommt ein FILENAME drin vor, auf deutsch heisst es DATEINAME. Machts klick? :D

Mehr kann ich auch nicht helfen. ;)



PS: In meinem ersten Beitrag habe ich dir zwei Links gegeben, der zweite ist in der Lib., hättest du mal den angeklickt und in der Ergebnisliste den ersten Beitrag von unten gelesen, der ist sogar noch von mir, dann wären wir schon viiieeel weiter...

[ghost1601]

Zitat:

Zitat von Daniel B

PChar(DATEINAME) hat er doch da geschrieben und der zweite PChar(WEITEREPARAMETER)

Jetzt nimm die Zeile von Ihm, da kommt ein FILENAME drin vor, auf deutsch heisst es DATEINAME. Machts klick? :D

Mehr kann ich auch nicht helfen. ;)



PS: In meinem ersten Beitrag habe ich dir zwei Links gegeben, der zweite ist in der Lib., hättest du mal den angeklickt und in der Ergebnisliste den ersten Beitrag von unten gelesen, der ist sogar noch von mir, dann wären wir schon viiieeel weiter...

vielen dank für die überaus überlegene antwort:roll:
ich hatte in der tat nicht bis ganz unten alles durchgesehn
nur besteht das problem weiterhin...
wenn ich in deinen quellcode verwende

Delphi-Quellcode:

ShellExecute(Handle, nil, 'shutdown.exe -s', nil, nil, SW_SHOW);

wird der "parameter" -s nicht verwendet bzw der bewirkt dass das programm nicht läuft
falls ich nur shutdown.exe verwende, weißt du ja sicherlich selber, das nichts weiter groß passiert da die exe dann nicht weiß was passieren soll...mit dem parameter -s weiß sie das der rechner ausgeschaltet werden soll

[TBx]

Zitat:

Zitat von Florian Bernd

Delphi-Quellcode:

ShellExecute(Application.Handle, 'open', PChar('"' + FileName + '"'), 
PChar(Parameter), nil, SW_NORMAL);

Also: erstezte FileName durch shutdown.exe und Parameter durch '-s'

Hope it helps

onlinekater

[Christian Seehase]

Moin Ghost,

Zitat:

Zitat von ghost1601

wenn ich in deinen quellcode verwende

Delphi-Quellcode:

ShellExecute(Handle, nil, 'shutdown.exe -s', nil, nil, SW_SHOW);

wird der "parameter" -s nicht verwendet bzw der bewirkt dass das programm nicht läuft

Du solltest Dir mal die Parameter von ShellExecute ansehen.
Sollen auch Parameter übergeben werden, so gehören die an eine andere Stelle.

Delphi-Quellcode:

ShellExecute(0,'open','shutdown.exe','-s',nil,SW_SHOW);

[ghost1601]

genau das meinte ich
danke dir jetz gehts wie ich es haben wollte

bigthx

[ghost1601]

Zitat:

Zitat von Christian Seehase

Moin Ghost,

Zitat:

Zitat von ghost1601

wenn ich in deinen quellcode verwende

Delphi-Quellcode:

ShellExecute(Handle, nil, 'shutdown.exe -s', nil, nil, SW_SHOW);

wird der "parameter" -s nicht verwendet bzw der bewirkt dass das programm nicht läuft

Du solltest Dir mal die Parameter von ShellExecute ansehen.
Sollen auch Parameter übergeben werden, so gehören die an eine andere Stelle.

Delphi-Quellcode:

ShellExecute(0,'open','shutdown.exe','-s',nil,SW_SHOW);

danke dir, jetzt hab ich wieder ein kleines Problemchen...
Man kann ja die shutdown mit einem Countdown oder Meldungen versehen...aber wo kann ich das anfügen?
das -s argument hast du bereits angegeben aber wenn ich jetzt noch ein Argument, eben diesen countdown kann mandas da hinter schreiben oder wo füg ich das nun wieder ein?

[TBx]

Hallo"

Auch Das ist wieder ein Parameter, kommt also in den Parametersting mit rein:

Delphi-Quellcode:

ShellExecute(0,'open','shutdown.exe','-s -t 30',nil,SW_SHOW);

Der Rechner sollte nun nach 30 Sekunden heruntergefahren werden.

BTW: Da hättest DU durch einfaches Probieren auch selbst drauf kommen können ...

Hope it helps

Onlinekater

[Edit] oder sollten Dir etwa die Parameter für shutdown fehlen? --> CMD-Fenster aufmachen und shutdown /? eintippen [/Edit]

[ghost1601]

achso einfach mit rein...ich hab da extra ,'-t', gemacht...
alles klar