beliebig viele forms zur Laufzeit erstellen

[5etH]

Hallo zusammen

Das hat super funktioniert habe aber momentan folgendes problem:
Wenn ich einen neuen Browser öffne möchte ich gleich eine adresse mitgeben auf die er gehen soll ...

hier einmal der Quelltext

Delphi-Quellcode:

procedure Tform3.Combobox1Select(Sender: TObject);
begin
Tform2.Create(Application).show;
form2.webbrowser1.navigate(Combobox1.items[combobox1.itemindex]);
end;

Leider ruft er dann die adresse die in der Combobox steht nicht auf ... kann es daran liegen das ich nur form2 anspreche ?

schonmal vielen Dank
Manu

[jfheins]

Delphi-Quellcode:

procedure Tform3.Combobox1Select(Sender: TObject);
begin
  with Tform2.Create(Application) do
  begin
    Show();
    webbrowser1.navigate(Combobox1.items[combobox1.itemindex]);
  end;
end;

Du musst den webbrowser natürlich auf die Instanz aufrufen, die du gerade erstellt hast. Also brauchst du eine lokale variable oder du nimmst with .. do

[5etH]

super Danke das hat funktioniert ... jetzt wollte ich einen CMD befehl mit shellexecute übergeben aber er kennt shellexecute nicht .... hab ich in den uses was vergessen unter umständen oder warum erkennt er das bei mir nicht ?

[Neutral General]

Hi,

uses ShellAPI;

[5etH]

alles klar ^^ leider stellt er sich jetzt etwas an weil ich einen String übergeben möchte er aber Pchar will

der Entsprechende Code
shellexecute(application.handle,nil,('mstsc.exe'), ('/v ' + ((combobox1.items[combobox1.ItemIndex]))),nil,sw_Normal); gibt es für den Befehl ShellExecute auch ne Möglichkeit ein Programm mit "ausführen als" zu starten ... mit Variablen die vorher festgelegt wurden, ohne das sich der Dialog öffnet, also das ich Benutzer, PW und Domain direkt übergebe ?

Gruß und vielen Dank
Manu

[jfheins]

Zitat von 5etH:

gibt es für den Befehl ShellExecute auch ne Möglichkeit ein Programm mit "ausführen als" zu starten ... mit Variablen die vorher festgelegt wurden, ohne das sich der Dialog öffnet, also das ich Benutzer, PW und Domain direkt übergebe ?

Nicht mit Shellexecute aber es gibt etwas wie .... das da: http://msdn.microsoft.com/en-us/library/ms682431(VS.85).aspx

[Neutral General]

Das PChar Problem lässt sich mit einem einfachen Cast auf PChar beheben:

shellexecute(application.handle,nil,('mstsc.exe'),PChar('/v ' + ((combobox1.items[combobox1.ItemIndex]))),nil,sw_Normal); Zu deiner anderen Frage, habe ich leider keine Antwort.

[5etH]

alles klar super das klappt ^^ nur das createproccessasuser bereitet mir kopfschmerzen ... bin total überfordert und desto länger ich nach suche desto schlimmer wird es hier schonmal was ich habe

Delphi-Quellcode:

logonuser(PChar(form1.edit1.text),Pchar('hsvv.hessen.de'),Pchar(form1.edit2.text),<LOGON32_LOGON_BATCH or LOGON32_LOGON_NETWORK or LOGON32_LOGON_INTERACTIVE>,
             <LOGON32_PROVIDER_DEFAULT>,
             AdminToken));

wie ich aber nun mit diesen daten ein programm aufrufe weis ich nicht , weil ich kann mit diesen daten nichts im "createprocessasuser" anfangen ... kann man nicht auch runas dafür nehmen ?