← →Dimka Maslov
(2001-12-13 14:08)
[4]
function kView:string;
var
nItems:cardinal; //номер ярлыка
p:TPoint; buffer: array [0..127] of char; Item:integer;
begin
p.x:=0; p.y:=0;
nItems:=ListView_GetItemCount(hStol);
for Item:= 1 to nItems do
begin
ListView_GetItemText(hStol,Item,0,buffer,sizeof(buffer));
SendMessage(findwindow(nil,PChar("Form1")), WM_IName, 0, Integer(@buffer[0]));
end;
end;
Получаю имя ярлыка :
procedure TForm1.OnMyMessage(var Msg:TMessage);
begin
ListBox1.items.Add(PChar(Msg.lParam));
end;
Нужна помощь Найти похожие ветки
← →