Delphi-PRAXiS

Delphi-PRAXiS (https://www.delphipraxis.net/forum.php)
-   Win32/Win64 API (native code) (https://www.delphipraxis.net/17-win32-win64-api-native-code/)
-   -   Delphi Superwinger vs. MSDN - FAIL... (https://www.delphipraxis.net/133705-superwinger-vs-msdn-fail.html)

LDericher 7. Mai 2009 09:34


Superwinger vs. MSDN - FAIL...
 
Hi,

Ich bin mal wieder zu blöd um aus der MSDN schlauer zu werden...
Angenommen, ich habe ein Handle von einem Fenster, wie bekomme ich die Caption und den Klassennamen des Fensters?
Habe es so versucht:

Delphi-Quellcode:
var
  TheHandle:HWND;
  CN:PAnsiChar;
...
ShowMessage(inttostr(TheHandle));
GetClassName(TheHandle, @CN, 20);
ShowMessage(CN);
...
GetWindowText(TheHandle, @CN, 20);
ShowMessage(CN);
Leider raist der Code ständig Exceptions -.-
Kann mir jemand sagen was ich falsch mache? Ist doch bestimmt nix schweres...?

MfG,
LDer

P.S.: Wer dann noch weiß, wie man den Cursor innerhalb eines bestimmten Fensters "einsperren" kann, dem wäre ich sehr verbunden!
Ist aber nicht so wichtig ;)

hoika 7. Mai 2009 09:37

Re: Superwinger vs. MSDN - FAIL...
 
Hallo,

CN: PAnsiChar;

das ist ein Pointer.
Der muss erst mal per GetMem/Alloc etwas Speicher bekommen,
bevor du ihn benutzen kannst.

Für deine Cursor-Frage bitte neuen Thread aufmachen.
Und dort gleich mit reinschreiben, was "Fenster" ist
(eigenes Fenster, nur Handle ...).


Heiko

mkinzler 7. Mai 2009 09:37

Re: Superwinger vs. MSDN - FAIL...
 
Vielleicht so
Delphi-Quellcode:
CN:AnsisTring;
...
GetClassName(TheHandle, PAnsiChar(CN), 20);
?

LDericher 7. Mai 2009 09:42

Re: Superwinger vs. MSDN - FAIL...
 
Danke Heiko, das war's!
:thumb:

Jetz kann ich mein Riesen-Projekt endlich fertigstellen :D
:cheer:

Gruß LDer

hoika 7. Mai 2009 10:09

Re: Superwinger vs. MSDN - FAIL...
 
Hallo,

na das ist fein ;)
Und vergiss das FreeMem zum Schluss nicht.


Heiko


Alle Zeitangaben in WEZ +1. Es ist jetzt 12:39 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