Re: beliebig viele forms zur Laufzeit erstellen
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 |
Re: beliebig viele forms zur Laufzeit erstellen
Delphi-Quellcode:
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 ;)
procedure Tform3.Combobox1Select(Sender: TObject);
begin with Tform2.Create(Application) do begin Show(); webbrowser1.navigate(Combobox1.items[combobox1.itemindex]); end; end; |
Re: beliebig viele forms zur Laufzeit erstellen
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 ?
|
Re: beliebig viele forms zur Laufzeit erstellen
Hi,
Delphi-Quellcode:
;)
uses ShellAPI;
|
Re: beliebig viele forms zur Laufzeit erstellen
alles klar ^^ leider stellt er sich jetzt etwas an weil ich einen String übergeben möchte er aber Pchar will
der Entsprechende Code
Delphi-Quellcode:
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 ?
shellexecute(application.handle,nil,('mstsc.exe'), ('/v ' + ((combobox1.items[combobox1.ItemIndex]))),nil,sw_Normal);
Gruß und vielen Dank Manu |
Re: beliebig viele forms zur Laufzeit erstellen
Zitat:
|
Re: beliebig viele forms zur Laufzeit erstellen
Das PChar Problem lässt sich mit einem einfachen Cast auf PChar beheben:
Delphi-Quellcode:
Zu deiner anderen Frage, habe ich leider keine Antwort.
shellexecute(application.handle,nil,('mstsc.exe'),PChar('/v ' + ((combobox1.items[combobox1.ItemIndex]))),nil,sw_Normal);
|
Re: beliebig viele forms zur Laufzeit erstellen
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:
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 ?
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)); |
Alle Zeitangaben in WEZ +1. Es ist jetzt 11:08 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