var<br>  Win: array [1..1024] of DWord;<br>  WC: DWord;<br>  i: DWord;<br><br>procedure TForm1.Button1Click(Sender: TObject);<br><br> function EnumWindowsProc(H, LP: DWord): Boolean; stdcall;<br> begin<br>   Inc(WC);<br>   Win[WC] := H;<br>   EnumWindowsProc := True<br> end;<br><br>var<br>  TH, P: DWord;<br>  PE: TProcessEntry32;<br>  Found, Ok: Boolean;<br>  Title: PChar;<br><br>begin<br>  GetMem(Title, 4096);<br>  ListBox1.Clear;<br>  WC := 0;<br>  EnumWindows(@EnumWindowsProc, 0);<br>  TH := CreateToolhelp32Snapshot(TH32CS_SNAPPROCESS, 0);<br>  Found := Process32First(TH, PE);<br>  while Found do<br>  begin<br>    Ok := False;<br>    for i := WC downto 1 do<br>    begin<br>      GetWindowThreadProcessId(Win[i], @P);<br>      if IsWindowVisible(Win[i]) and (P = PE.th32ProcessID) then<br>      begin<br>        Ok := True;<br>        Break<br>      end<br>    end;<br>    if Ok then<br>    begin<br>      GetWindowText(Win[i], Title, 4096);<br>      Ok := (Title[0] <> #0)<br>    end;<br>    if not Ok then<br>    begin<br>      StrPCopy(Title, ExtractFileName(PE.szExeFile));<br>      (StrEnd(Title)-Length(ExtractFileExt(PE.szExeFile)))^ := #0;<br>      StrLower(Title+1)<br>    end;<br>    ListBox1.Items.Add(Title);<br>    Found := Process32Next(TH, PE)<br>  end;<br>  CloseHandle(TH);<br>  FreeMem(Title, 4096)<br>end;

<br>::SetWindowText( (HWND)GetCurrentProcess(), "123" );<br>

<br>// вместо FindWindow("Progman",NULL); но это не важно ;)<br>HWND hWndDesktop=GetShellWindow();<br>DWORD dwprid, dwthrid;<br>// ищем первое окно<br>HWND hwnd=GetWindow(hWndDesktop, GW_HWNDFIRST);<br><br>while(true){<br>  if(IsWindowVisible(hwnd) && hwnd!=hWndDesktop){<br>    // по найденному окну получаем ProcessID процесса, которому<br>    // это окно принадлежит. сравниваем PID c PID нашего процесса.<br>    dwthrid=GetWindowThreadProcessId(hwnd, &dwprid);<br>    if(dwpid==dwProcessID){<br>      // найденное окно принадлежит тому самому процессу.<br>      // просто берем его заголовок - это и будет title процесса.<br>      GetWindowText(hwnd, ...);<br>      break;<br>    }<br>  }<br>  // ищем след. окно<br>  hwnd=GetWindow(hwnd, GW_HWNDNEXT);<br>}<br>

<br>...<br>var<br>  Form1: TForm1;<br>  ProcEntry: tprocessentry32;<br>  hSnapShot,phndl: thandle;<br>  i: integer;<br>  pid: array[0..49] of cardinal;<br>  procid: cardinal;<br>  proctitle: pchar;<br><br>...<br><br>procedure TForm1.lstprocDropDown(Sender: TObject); [b]//всё тот же ComboBox[/b]<br>begin<br>hsnapshot:=CreateToolhelp32Snapshot(TH32CS_SNAPPROCESS,0);<br>procentry.dwSize:=sizeof(PROCESSENTRY32);<br>if Process32First(hsnapshot,Procentry) then<br>begin<br>  lstproc.Clear;<br>  i:=0;<br>  GetMem(proctitle, 256);<br>  with lstproc.Items do<br>  begin<br>    repeat<br>      pid[i]:=procentry.th32ProcessID;<br>      phndl:=OpenProcess(PROCESS_ALL_ACCESS,false,pid[i]);<br>      GetWindowText(phndl, proctitle, 256);<br>      Add(proctitle);<br>      closehandle(phndl);<br>      inc(i);<br>    until not Process32Next(hsnapshot,Procentry);<br>  end;<br>end;<br>FreeMem(proctitle, 256);<br>CloseHandle(hsnapshot);<br>end;<br>...<br>

procedure TForm1.FormCreate(Sender: TObject);<br>var<br>  Name: PChar;<br>begin<br>  Application.Title := 'Хрен собачий';<br>  ListBox1.Clear;<br>  GetMem(Name, 256);<br>  GetWindowText(Application.Handle, Name, 256);<br>  MessageBox(0, Name, 'Угадал?', mb_Ok + mb_IconInformation);<br>  FreeMem(Name, 256);<br>  Halt<br>end;

<br>GetSecurityInfo<br>The GetSecurityInfo function retrieves a copy of the security descriptor for an object specified by a handle. <br><br>DWORD GetSecurityInfo(<br>  HANDLE handle,     // handle to the object<br>  SE_OBJECT_TYPE ObjectType,<br>                     // type of object<br>  SECURITY_INFORMATION SecurityInfo, <br>                     // type of security information to retrieve<br>  PSID *ppsidOwner,  // receives a pointer to the owner SID<br>  PSID *ppsidGroup,  // receives a pointer to the primary group SID<br>  PACL *ppDacl,      // receives a pointer to the DACL<br>  PACL *ppSacl,      // receives a pointer to the SACL<br>  PSECURITY_DESCRIPTOR *ppSecurityDescriptor<br>                     // receives a pointer to the security descriptor<br>);<br> <br>Parameters<br>handle <br>A handle to the object from which to retrieve security information. <br>ObjectType <br>Specifies a value from the SE_OBJECT_TYPE enumeration that indicates the type of object named by the pObjectName parameter. <br>SecurityInfo <br>A set of SECURITY_INFORMATION bit flags that indicate the type of security information to retrieve. This parameter can be a combination of the following values. Value Meaning <br>OWNER_SECURITY_INFORMATION If this flag is set, the ppsidOwner parameter receives the security identifier (SID) of the object's owner. <br>GROUP_SECURITY_INFORMATION If this flag is set, the ppsidGroup parameter receives the SID of the object's primary group.  <br>DACL_SECURITY_INFORMATION If this flag is set, the ppDacl parameter receives the object's discretionary access-control list (DACL). <br>SACL_SECURITY_INFORMATION If this flag is set, the ppSacl parameter receives the object's system access-control list (SACL).. <br><br><br>ppsidOwner <br>Pointer to a variable that receives a pointer to the owner SID in the security descriptor returned in ppSecurityDescriptor. The returned pointer is valid only if you set the OWNER_SECURITY_INFORMATION flag. This parameter can be NULL if you do not need the owner SID. <br>ppsidGroup <br>Pointer to a variable that receives a pointer to the primary group SID in the returned security descriptor. The returned pointer is valid only if you set the GROUP_SECURITY_INFORMATION flag. This parameter can be NULL if you do not need the group SID. <br>ppDacl <br>Pointer to a variable that receives a pointer to the DACL in the returned security descriptor. The returned pointer is valid only if you set the DACL_SECURITY_INFORMATION flag. This parameter can be NULL if you do not need the DACL. <br>ppSacl <br>Pointer to a variable that receives a pointer to the SACL in the returned security descriptor. The returned pointer is valid only if you set the SACL_SECURITY_INFORMATION flag. This parameter can be NULL if you do not need the SACL. <br>ppSecurityDescriptor <br>Pointer to a variable that receives a pointer to the security descriptor of the object. You must call the LocalFree function to free the returned buffer. <br>Return Values<br>If the function succeeds, the return value is ERROR_SUCCESS.<br><br>If the function fails, the return value is a nonzero error code defined in WINERROR.H. <br><br>Remarks<br>If the ppsidOwner, ppsidGroup, ppDacl, ppSacl parameters are non-NULL, and the SecurityInfo parameter specifies that they be retrieved from the object, those parameters will point to the corresponding parameters in the security descriptor returned in ppSecurityDescriptor.<br><br>To read the owner, group, or DACL from the object's security descriptor, the calling process must have been granted READ_CONTROL access when the handle was opened. To get READ_CONTROL access, the caller must be the owner of the object or the object's DACL must grant the access.<br><br>To read the SACL from the security descriptor, the calling process must have been granted ACCESS_SYSTEM_SECURITY access when the handle was opened. The proper way to get this access is to enable the SE_SECURITY_NAME privilege in the caller's current token, open the handle for ACCESS_SYSTEM_SECURITY access, and then disable the privilege.<br><br>QuickInfo<br>  Windows NT: Requires version 4.0 or later.<br>  Windows: Unsupported.<br>  Windows CE: Unsupported.<br>  Header: Declared in aclapi.h.<br>  Import Library: Use advapi32.lib.<br><br>See Also<br>Windows NT 4.0 Access Control Overview, Windows NT 4.0 Access-Control Functions, ACL, GetNamedSecurityInfo, LocalFree, SE_OBJECT_TYPE, SECURITY_DESCRIPTOR, SECURITY_INFORMATION, SetNamedSecurityInfo, SetSecurityInfo, SID <br><br>