ShellExecute will nicht :/ [Anfänger vs. Delphi ;)]

[WhiteDay]

Delphi-Quellcode:

uses
   Windows, ShellApi;


procedure run();
begin
ShellExecute(0,NIL, 'c:\Winnt\system32\notepad.exe', nil, nil, SW_SHOW);
end;

end.

Huhu, so, schau mir grad Delphi an und hab jetzt schon nen Problem :|

Er gibt mir keine Fehler raus, trotzdem will es einfach nicht funktionieren :/ probiere jetzt schon stundenlang und krieg es nicht hin...

Was mach ich denn da falsch?!

m.f.g.

*edit*
Ahhh, direkt beim ersten Post im Forum verklickt, :| sorry

[Nils_13]

Hi,

HERZLICH WILLKOMMEN!

Falls du die Anwendung einfach nur starten willst benutze einfach

Delphi-Quellcode:

ShellExecute(Application.Handle, 'open' ,PChar('cli.exe'), nil, PChar('cli.exe'), sw_ShowNormal);

[arbu man]

Weitere Info zu Shellexecute findest du hier

[WhiteDay]

Undefinierter Bezeichner: 'Application'
Nicht genügend wirkliche Parameter :(

[alcaeus]

Versuchs mal mit self.Handle.

Wenn du aber eine normale VCL-Anwendung hast und der Code in einer Klassenmethode deines Forms steht, dann muss Application bekannt sein. So wie es aussieht ist das aber nicht unbedingt VCL...

Greetz
alcaeus

[add]Lass dir mal den Wert von GetLastError ausgeben. Auch mit Handle 0 muesste das Programm ausfuehrbar sein...[/add]

[WhiteDay]

GetLastError? Okay, ich sollte mir ein Delphi Buch zulegen...

[alcaeus]

Zitat:

Zitat von WhiteDay

GetLastError? Okay, ich sollte mir ein Delphi Buch zulegen...

:lol: oder den MSDN-Link in die Favoriten aufnehmen ;) GetLastError

Greetz
alcaeus

[WhiteDay]

Ha! Probiern geht also doch über studieren :P

Delphi-Quellcode:

uses
 Windows, ShellApi;

 begin
ShellExecute(0, 'open', 'notepad', nil, nil, SW_SHOW);
end.

[WhiteDay]

Nächste Frage =)
Kann ich Delphi beibringen, dass er %Systemroot% erkennt?

[Neutral General]

Delphi-Quellcode:

procedure ReplaceStr(Source : String; Original : String; Replace : String; var Dest : String);
var Posi : Integer;
begin
 while pos(Original,Source) <> 0 do begin
  if pos(Original,Source) > 0 then begin
   Posi := pos(Original,Source);
   delete(Source,pos(Original,Source),Length(Original));
   insert(Replace,Source,posi);
  end;
   Dest := Source;
 end;
end;

Kann sein das sowas Delphi Schon mitliefert aber habs auch mal selber gemacht.

Delphi-Quellcode:

ReplaceStr(String,'%SystemRoot%','C:\Windows',String);

Ausgegangen das C:\Windows das Systemverzeichniss ist, was aber normalerweise der Fall ist.
Ok ich muss zugeben meine procedure ist etwas umständlich und das wäre mit ner Funktion besser geregelt aber die hab ich vor langer Zeit geschrieben wo ich noch nicht sooo viel Ahnung hatte :roll: :mrgreen: