Нужна помощь

← →
YUS (2001-12-12 20:43) [0]

Не могу передать имя ярлыка с помощью ф-ции SendMessage.Предложеный Delirium вариант работает, если s:="привет". Подскажите, где ошибка. Делаю так:

function kView:string;
var
nItems:cardinal; //номер ярлыка
TextToSet: PChar; S:String;
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));
s:=buffer;
SendMessage(findwindow(nil,PChar("Form1")), WM_IName, 0, Integer(Pchar(s)));
end;
end;
Получаю имя ярлыка :

procedure TForm1.OnMyMessage(var Msg:TMessage);
var S:String;
begin
S:=String(Msg.LParam);
ListBox1.items.Add(S);
end;

Нужна помощь Найти похожие ветки