GetWindowModuleFileName gibt nichts zurück

[c113plpbr]

Ich versuche per GetWindowModuleFileName den Namen (& Pfad) eines Programms über das FensterHandle herauszufinden, doch leider gibt die Funktion nichts zurück.
Mein Code sieht in etwa so aus:

Delphi-Quellcode:

var
  hWnd_ : HWND;
  fname : PAnsiChar;
begin
  fname := nil;
  hWnd_ := FindWindow('Notepad', nil);
  if(hWnd_ = 0)then
  begin
    Application.MessageBox('FindWindow failed!', '', 0);
    exit;
  end;

  GetWindowModuleFileNameA(hWnd_, fname, MAX_PATH);

  Application.MessageBox(fname, 'fname', 0);
end;

Die "fname"-Message bleib immer leer. Weis jemand woran das liegt?

ciao & thx, Philipp

[Dax]

So msollte es gehen:

Delphi-Quellcode:

var
  hWnd_ : HWND;
  fname : PAnsiChar;
begin
  GetMem(fname, MAX_PATH);
  hWnd_ := FindWindow('Notepad', nil);
  if(hWnd_ = 0)then
  begin
    Application.MessageBox('FindWindow failed!', '', 0);
    exit;
  end;

  GetWindowModuleFileNameA(hWnd_, fname, MAX_PATH);

  Application.MessageBox(fname, 'fname', 0);
end;

[c113plpbr]

@Dax: Das hab ich auch schon probiert, leider erfolglos.

[jim_raynor]

Versuche fName als Array[0..MAX_PATH] of Char zu deklarieren.

[c113plpbr]

@jim_raynor: Hab ich auch schon probiert, funktioniert leider auch nicht. :(

[jim_raynor]

Dann prüfe doch mal mit GetLastError den Fehlercode, den dir Windows zurück gibt.

[c113plpbr]

Zitat:

Zitat von jim_raynor

Dann prüfe doch mal mit GetLastError den Fehlercode, den dir Windows zurück gibt.

Der ist ganz ordnungsgemäß 0 ...
Kann das mal jemand bei sich testen? Geht das allgemein nicht, liegt es an meinem rechner, oder is da irgendwas anderes faul?

[Luckie]

Der Klssen name vom Notepad ist wahrscheinlich nicht "Notepad":

Delphi-Quellcode:

hWnd_ := FindWindow('Notepad', nil);

Als Handle wirst du dann eben null zurückbekommen. Guck doch erstmal, ob diu da ein gültiges Handle bekommst. Desweiteren würde ich den Vorschlag mit GetLastError nicht so einfach abtun, wer weiß, was eventuell noch shcief geht. :roll:

[c113plpbr]

Zitat:

Zitat von Luckie

Der Klssen name vom Notepad ist wahrscheinlich nicht "Notepad":

Delphi-Quellcode:

hWnd_ := FindWindow('Notepad', nil);

Doch ^^ ... ich hab nachgeguggt! Außerdem würde ansonsten ja die andere Message kommen.

Zitat:

Zitat von Luckie

Desweiteren würde ich den Vorschlag mit GetLastError nicht so einfach abtun, wer weiß, was eventuell noch shcief geht. :roll:

Was verbreche ich denn noch alles? :gruebel: ;)

Kann jemand den code bei sich testen, ob er da funktioniert, bitte!

ciao, Philipp

[Luckie]

Zitat:

Zitat von c113plpbr

Was verbreche ich denn noch alles? :gruebel: ;)

So lange du nicht GetLastError aufrufst, wirst du es nie erfahren. :roll: