Støv, fibre og metalliske partikler kan påvirke både uptime, levetid og driftssikkerhed. Derfor arbejder flere datacentre systematisk med contamination control.
int GetWindowText ( HWND hWnd, // handle of window or control with text LPTSTR lpString, // address of buffer for text int nMaxCount // maximum number of characters to copy );
Hvordan den bruges i Delphi ved jeg ikke. Men i C ville det se nogenlunde således ud: int size = 256; char buffer[size]; GetWindowText(hwnd, buffer, size);
var WindowText: array[0..255] of char; Handle : HWND; begin GetWindowText(Handle, WindowText, 255); if WindowText <> '' then Memo1.Lines.Add(WindowText); end;
Her er osse en ting til at liste alle windows i en combo. Du kan måske bruge noget derfra, eller andre kan bruge det. Det viser osse enum med call-back metode. Classname hentes men benyttes ikke.
//disse to vars skal være globale var winCount: integer; windowsA: array[1..1000] of integer;
function getWindow(hdl: HWND; parm: pointer): BOOL; stdcall; begin inc(winCount); windowsA[winCount]:=hdl; //gem kun handlerne getWindow:=true; end; //enum call back
procedure getAll; var i: integer; buf: string; className: string; windowText: string; begin winCount:=0; enumWindows(@getWindow, longword(0)); //fylder array med alle windows cmbActivateWindow.Sorted:=true; for i:=1 to winCount do begin setLength(buf,1002); getClassName(windowsA[i],pchar(buf),1000); setLength(buf,pos(#0,buf)-1); className:=buf; setLength(buf,1002); getWindowText(windowsA[i],pchar(buf),1000); setlength(buf,pos(#0,buf)-1); windowText:=trimSpc(buf); if windowText <> '' then cmbActivateWindow.Items.AddObject(windowText,pointer(windowsA[i])); end; cmbActivateWindow.Sorted:=false; cmbActivateWindow.Items.InsertObject(0,'<none>',pointer($0)); cmbActivateWindow.ItemIndex:=0; end; //get all
Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.