nja, wir wollen mal den Parameter lParam nicht außer Acht lassen ...
den kann man nämlich für ganz nette Dinge benutzen
Delphi-Quellcode:
function XPEnumSchemes(uiIndex: UINT; dwName: DWORD; sName: PWideChar;
dwDesc: DWORD; sDesc: PWideChar; pp: Pointer; lParam: LPARAM): BOOLEAN; stdcall;
begin
TMemo(lParam).Lines.Add(Format('%d %s --> %s', [uiIndex, sName, sDesc]));
Result := True;
end;
procedure TForm1.Button1Click(Sender: TObject);
var clb: WRSCHEMESENUMPROC;
begin
clb := XPEnumSchemes;
EnumPwrSchemes(@clb, LPARAM(Memo1));
end;
[add]
wieso Trickser?
dieser Parameter ist schließlich für soetwas da
( nja, ich versteh schon den Spaß in deiner Antwort ...
wollte aber nicht, daß hier welche Denken man darf sowas nicht machen )