Форум: "Основная";
Текущий архив: 2003.11.13;
Скачать: [xml.tar.bz2];
ВнизКак перевести pchar в string? Найти похожие ветки
← →
maxXP (2003-10-24 22:53) [0]var
hwndHandle : THANDLE;
hMenuHandle : HMENU;
Как перевести string в pchar ?
===============================
sss:pchar;
begin
sss:="Безымянный - Блокнот";
{a если из TEdit} sss:=edit1.text \\Ошибка ?????????????/
hwndHandle := FindWindow(nil, sss);
if (hwndHandle <> 0) then begin
hMenuHandle := GetSystemMenu(hwndHandle, FALSE);
if (hMenuHandle <> 0) then
DeleteMenu(hMenuHandle, SC_CLOSE, MF_BYCOMMAND);
end;
← →
Guerrillero (2003-10-24 23:00) [1]Вниз взглянуть лень ?
http://delphimaster.net/view/1-1067015879/
← →
maxXP (2003-10-24 23:13) [2]Спасибо! :)
Страницы: 1 вся ветка
Форум: "Основная";
Текущий архив: 2003.11.13;
Скачать: [xml.tar.bz2];
Память: 0.45 MB
Время: 0.035 c