Forum: Sonstige Fragen zu Delphi
Delphi
by jaenicke,
16. Jun 2009
procedure ...
var
ResultList: TStringList;
begin
ResultList := TStringList.Create;
try
if QueryWMI('Win32_BaseBoard', 'SerialNumber', ResultList) then
edtResultDisplay.Text := ResultList.Text
else
edtResultDisplay.Text := 'Fehler beim Auslesen';
Forum: Sonstige Fragen zu Delphi
Delphi
by jaenicke,
16. Jun 2009
Du hast den dritten Parameter, in den das Ergebnis soll, ja auch weggelassen statt nur die abzufragenden Werte zu ändern. Zudem: Wie soll ein Booleanwert (der den Erfolg der Abfrage angibt) in Edit.Text gehen?
Nebenbei: Ich habe keinen PC gefunden, bei dem die Seriennnummer des Mainboards gesetzt gewesen wäre, bei mir ist die überall leer oder mit einem Platzhalter gefüllt...
Forum: Sonstige Fragen zu Delphi
Delphi
by jaenicke,
15. Jun 2009
Naja, willst du Win32_VideoController und dessen Eigenschaft Caption abfragen? Nein? Sondern die verlinkte Klasse?
Und warum schreibst du das nicht hin?
Forum: Sonstige Fragen zu Delphi
Delphi
by jaenicke,
10. Jun 2009
Nein, angezeigt wird der Anhang trotzdem, dass er vorhanden ist, und was es ist hatte ich ja geschrieben. Das mit dem Einloggen ist aber ein Argument, ich hänge es mal hier auch an.
Forum: Sonstige Fragen zu Delphi
Delphi
by jaenicke,
10. Jun 2009
Was heißt das? Fehlermeldung? Wie hast du es aufgerufen? Welches Betriebssystem, Delphiversion? :glaskugel: