래채'sTory

use!

 uses
  Windows, TlHelp32;

function 정의!

function GetThreadCount(ProcessID: DWORD): Integer;
var
  Snapshot: THandle;
  ThreadEntry: TThreadEntry32;
begin
  Result := 0;
  Snapshot := CreateToolhelp32Snapshot(TH32CS_SNAPTHREAD, 0);
  if Snapshot <> INVALID_HANDLE_VALUE then
  try
    ThreadEntry.dwSize := SizeOf(ThreadEntry);
    if Thread32First(Snapshot, ThreadEntry) then
    repeat
      if ThreadEntry.th32OwnerProcessID = ProcessID then
        Inc(Result);
    until not Thread32Next(Snapshot, ThreadEntry);
  finally
    CloseHandle(Snapshot);
  end;
end;

호출 예시!

var
  ProcessID: DWORD;
  ThreadCount: Integer;
begin
  ProcessID := GetCurrentProcessId; // 현재 프로세스 ID를 얻습니다.
  ThreadCount := GetThreadCount(ProcessID);
  // 이제 ThreadCount 변수에 특정 프로세스의 스레드 수가 저장됩니다.
end;

출처 : 우리의 친구 chatGPT

  procedure TransparentPanel(var Target : TPanel);
  var
    I : Integer;
    FullRgn, ClientRgn, ControlRgn : THandle;
    Margin, MarginX, MarginY, X, Y : Integer;
  begin
    Margin  := (Target.Width - Target.ClientWidth) div 2;
    FullRgn := CreateRectRgn(0, 0, Target.Width, Target.Height);
    MarginX := Margin;
    MarginY := Target.Height - Target.ClientHeight - Margin;
    ClientRgn :=
      CreateRectRgn(
        MarginX
        , MarginY
        , MarginX + Target.ClientWidth
        , MarginY + Target.ClientHeight
      );

    CombineRgn(FullRgn, FullRgn, ClientRgn, RGN_DIFF);

    for I:=0 to Target.ControlCount-1 do begin
      X := MarginX + Target.Controls[I].Left;
      Y := MarginY + Target.Controls[I].Top;
      ControlRgn :=
        CreateRectRgn(
          X
          , Y
          , X + Target.Controls[I].Width
          , Y + Target.Controls[I].Height
        );
      CombineRgn(FullRgn, FullRgn, ControlRgn, RGN_OR);
    end;

    SetWindowRgn(Target.Handle, FullRgn, True);
  end;

원본 : 어느 고수님.. 

실행 파라미터에 

-multiInst 추가!