Programm starten

[flobus]

Moin, :hello:
ich möchte mit einem Programm eine andere Application öffnen, hab jetzt aber kein Plan wie. :gruebel:
Könnt ihr mir bitte helfen?

Danke schonmal
ciao Florian

[brechi]

such mal nach Shellexecute

[Evian]

Delphi-Quellcode:

ShellExecute(Handle, 'open', 'programm_deiner_wahl.exe', '', nil, SW_SHOW);

BEi DOS-Anwendungen etc.: Mal hier schauen!

[flobus]

hi, :hello:
danke!
Shellexecute läuf bei mir nicht (hab Delphi 1).
Ich hab ma nen bischen rumgeguckt und jetzt verwende ich folgendes:

Delphi-Quellcode:

begin
winexec(pchar('help.exe'),sw_shownormal);
end;
end.

weil das auch auf Delphi 1 läuft.
Danke für alles!!! :dancer2:
Danke Danke ! ! !

ciao Florian

[new32]

probiers mal mit createprocess oder damit:

Delphi-Quellcode:

procedure exec(n,p:string {n=Programmname; p=Params} );
var si:Tstartupinfo;
    pi:tprocessinformation;
begin
createprocess(nil,
              pchar(n+' '+p),
              nil,
              nil,
              false,
              windows.NORMAL_PRIORITY_CLASS,
              nil,
              nil,
              si,
              pi);
end;

MfG NEW32!


[Der Folgebeitrag]
Zu ShellExecute: ich meine gehört zu haben, dass das Ding eigentlich zum drucken von Dateien... dient und nich zum Starten von Progs.

[edit=Christian Seehase]Es gibt hier einen Edit-Button für Beiträge. ;-) Bitte künftig benutzen. Danke. Mfg, Christian Seehase[/edit]

[Christian Seehase]

Moin New,

woher stammt denn die Information?
Schau Dir am Besten mal die Doku zu ShellExcute an.

[fkerber]

Hi!

Man kann Shellexecute verschiedene Parameter übergeben, z.B. 'open' oder auch 'print'!


Ciao Frederic

[Speedmaster]

Zitat:

Zitat von flobus

hi, :hello:
danke!
Shellexecute läuf bei mir nicht (hab Delphi 1).
Ich hab ma nen bischen rumgeguckt und jetzt verwende ich folgendes:


weil das auch auf Delphi 1 läuft.
Danke für alles!!! :dancer2:
Danke Danke ! ! !

ciao Florian

Delphi 1???? Ich bitte dich, ne Delphi 3 Version bekommst man doch sicher für 10 Euro!

Mit soeiner alten Umgebung arbeiten finde ich total unnötig!

[PierreB]

Zitat:

Zitat von Speedmaster

Zitat:

Zitat von flobus

hi, :hello:
danke!
Shellexecute läuf bei mir nicht (hab Delphi 1).
Ich hab ma nen bischen rumgeguckt und jetzt verwende ich folgendes:


weil das auch auf Delphi 1 läuft.
Danke für alles!!! :dancer2:
Danke Danke ! ! !

ciao Florian

Delphi 1???? Ich bitte dich, ne Delphi 3 Version bekommst man doch sicher für 10 Euro!

Mit soeiner alten Umgebung arbeiten finde ich total unnötig!

Ich nehme mal an, sein Rechner unterstützt nur 16 Bit, Delphi 1 läuft nämlich imho nicht unter Win32.

[Hador]

Doch tut es.
Aus Interesse hatteich das auch mal neben meinem D3, D7 und D2005 installiert.
Funzt ohne Probleme.

[new32]

Zitat:

Zitat von Christian Seehase

Moin New,

woher stammt denn die Information?
Schau Dir am Besten mal die Doku zu ShellExcute an.

*Bezugsquelle sucht*

Guck dir mal Luckie's Beitrag an. :wink:

@Christian Seehase: OK! Werd ich machen!

MfG NEW32!

[Hador]

Wobei das Drucken in Luckies Beitrag nur ein Beispiel war.

[sakura]

Zitat:

Zitat von PierreB

Delphi 1 läuft nämlich imho nicht unter Win32.

Ganz einfach: Falsch. Ich habe Delphi 1 sogar unter Windows 2003 Server installiert gehabt, da jemand mal dafür Hilfe brauchte :roll:

...:cat:...

[PierreB]

Zitat:

Zitat von sakura

Zitat:

Zitat von PierreB

Delphi 1 läuft nämlich imho nicht unter Win32.

Ganz einfach: Falsch. Ich habe Delphi 1 sogar unter Windows 2003 Server installiert gehabt, da jemand mal dafür Hilfe brauchte :roll:

...:cat:...

Is ja gut, hab ich mich halt geirrt. :roll:

[flobus]

back again!
Also hab mir jez Delphi 2005 zugelegt.
jez weis ich wie ich eine datei öffne, aber wie lese ich sie in einen stream ein? :gruebel:

(delphi1 lief bei mir auf win98)

mfg flobus :bouncing4:

[ManuMF]

Delphi-Quellcode:

var FStream: TFileStream;

if not (DateiOpenDialog.Execute) then
  showmessage('Es wurde keine Datei gewählt!')
else
begin
  FStream := TFileStream.Create(DateiOpenDialog.FileName, fmOpenRead); 
  try
    ...
  finally
    FreeAndNil(FStream);
  end;
end;

DateiOpenDialog = TOpenDialog (unter Dialoge)

Gruß
ManuMF