Windows Unicode Units gesucht

[Luckie]

Ich suche für meinen Usermanager die UniCode Versionen unter anderem der Units Windows.pas und CommCtrl.pas. Ich kann sie zwar selber editieren, ist aber sehr mühsam und leider habe ich nicht mehr sehr viel Zeit, bis Donnerstag muss die neue Version laufen.

Edit: Google war auch nicht so der Renner.

[Sprint]

Die WinAPI Funktionen sind in der Unit Windows doch auch als Unicode vorhanden.

Alternative: http://sourceforge.net/project/showf...kage_id=139979

alternativer Link: http://jedi-apilib.sourceforge.net/win32api

[edit=Admin]Alternativen Link eingefügt, welcher unabhängig von Versionsnummern der API-Lib ist. Mfg, Daniel[/edit]

[Luckie]

Warum hat mich dann Motzi gestern die Unit CommCtrl umfriemeln lassen?

[Sprint]

Um welche Funktionen geht es denn?

[Robert Marquardt]

Wahrscheinlich weil bei der Jedi-Apilib Olli mitarbeitet ;->

Ich habe teilweise schon Programme geschrieben, die funktionieren egal wie der UNICODE-Schalter steht.
Da muss man nur auf die verwendeten Typen achten.

[Luckie]

Also SetDlgWindowTextW kennt er aber hier haperts:

Delphi-Quellcode:

procedure FillTreeView_Groups(hTV: THandle; const Computer: WideString; Groups: TGroups);
var
  Users                  : TStringArray;
  i, j                   : Integer;
  tvi                    : TTVInsertStructW;
  hr                     : HTREEITEM;
  hParent                : HTREEITEM;
begin
  TreeView_DeleteAllItems(hTV);
  if length(Groups) = 0 then exit;
  SetLength(Users, 0);
  setlength(hWndGroupNodes, length(Groups)); ;
  ZeroMemory(@tvi, sizeof(tvi));
  SendMessage(hTV, WM_SETREDRAW, Integer(False), 0);
  tvi.hParent := nil;
  tvi.hInsertAfter := TVI_ROOT;
  tvi.item.mask := TVIF_TEXT or TVIF_IMAGE or TVIF_SELECTEDIMAGE;
  tvi.item.iImage := 3;
  tvi.item.iSelectedImage := 3;
  tvi.item.pszText := PWideChar(Computer);
  hr := TreeView_InsertItemW(hTV, tvi);

TreeView_InsertItemW kennt er zum Beispiel nicht.

@Robert: Was für ein Schalter? Diesen Unicode Kompilerschalter kenne ich nur von VC her.

[NicoDE]

Zitat von Luckie:

Diesen Unicode Kompilerschalter kenne ich nur von VC her.

Der wird auch von einigen Delphi-Entwicklern verwendet. Allerdings gibt kaum Units, die {$IFDEF UNICODE} verwenden (dürfte wohl daran liegen, dass der Code Style Guide von Borland keine bedingte Kompilierung erlaubt).

[Sprint]

Delphi-Quellcode:

function TreeView_InsertItemW(hWnd: HWND; const lpis: TTVInsertStructW): HTREEITEM;
begin
  Result := HTREEITEM(SendMessageW(hWnd, TVM_INSERTITEM, 0, LPARAM(@lpis)));
end;

nicht getestet!

[NicoDE]

Zitat von Sprint:

nicht getestet!

Es muss TVM_INSERTITEMW (TV_FIRST + 50) lauten.

[Luckie]

Ja, da sich das so hinvbekomme ist klar. Und genau deswegen hab eich nach den Units gefragt, damit ich genau das nicht machgen muss, in jeder Unit rumfriemeln.

Unterstützen die Jedi Units den Schalter? Dann wäre es das, was ich suche.