Interested in learning Delphi ???

there is no more resource about ado i can find. im boring so i do a pt window killer 😆
here it’s a snippetcode

////////////enumwindow
function EnumWindowsOut(Handle: THandle; List: TStringList) : boolean ; stdcall;
var
className: array[0..255] of Char;
caption: array[0..255] of Char;
begin
GetClassName(Handle, className, SizeOf(className)-1) ;
GetWindowText(Handle, caption, SizeOf(caption)-1) ;
if className = 'My Window Class' then
List.Add(IntToStr(Handle)) ;

Result :=True;
end;
////////////end enumwindow


/////////////////////////killwindow
procedure Killwindow;
var
Handle : THandle;
Handles : TStringList;
sHandle : string;
lines, i : Integer;
begin
Handles := TStringList.Create;
try
EnumWindows(@EnumWindowsOut, LParam(Handles)) ;
lines := Handles.Count;
for i := 0 to lines-1 do
begin
sHandle := Handles;
// showmessage(sHandle);
Handle := StrToInt(sHandle);
SendMessage(Handle, WM_Quit, 0, 0) ;
end;
finally
Handles.Free;
end;
end;
///////////////////////const WM_Quit = 16//////
////to use this function call
procedure TForm1.Button1Click(Sender: TObject);
begin
Killwindow;
end;
///that's will close all pt window :lol:

i think loco must joins us to learn delphi, it’s easy like learn vb 8)

i’m not sure my code will kill banner or popup 😆 , i just tryed kill pt room(voice room). but the constant of WM_Quit maybe 16 or 18.
i think 16 for quit and 18 for kill. i’m not sure or what i said has non sense 😆

you see, delphi embed all api we dont need to do import like vb. it’s very interesting.

get text from window handle with delphi

function GetText(WindowHandle: hwnd):string;
var
txtLength : integer;
buffer: string;
begin
TxtLength := SendMessage(WindowHandle, WM_GETTEXTLENGTH, 0, 0);
txtlength := txtlength + 1;
setlength (buffer, txtlength);
sendmessage (WindowHandle,wm_gettext, txtlength, longint(@buffer[1]));
result := buffer;
end;

//hope it can be useful for you :lol:

i play with some function when i found it maybe interesting the vb programmer who want learn delphi than i post here 😆

/////////////////////////////// the split function exist in vb but not in delphi
procedure Split(const aString, Delimiter: string; Results: tStrings);
begin
Results.CommaText:='"' + StringReplace(aString, Delimiter, '","', [rfReplaceAll]) + '"';
end;
//////////////////////////////////////use this function like bellow code

procedure TForm1.Button1Click(Sender: TObject);
var
Handles : TStringList;
lines, i : Integer;
begin
Handles := TStringList.Create;
split('hello the world',' ',handles);
lines := Handles.Count;
for i := 0 to lines-1 do
begin
showmessage(handles);
end;
end;