shellapi
.....
.....
procedure TForm1.ListBox1DblClick(Sender: TObject);
begin
ShellExecute(Form1.Handle, 'open', ListBox1.Items.Strings[ListBox1.ItemIndex], nil,nil, SW_SHOWNORMAL );
end;
Но говорит что НЕСРАВНИМЫЙ ТИП "STRING" "PANSICHAR"
Ощибка гдето в этом месте
ShellExecute(Form1.Handle, 'open', ListBox1.Items.Strings[ListBox1.ItemIndex], nil,nil, SW_SHOWNORMAL );
|