Delphi 7 и WinAPI - странности работы

← →
Fabr (2003-09-16 14:35) [0]

GetWindowText( hwndApollo, Pchar(CurrSong[0]), 255 );

По идее эта команда должна загонять до 255 символов бувер CurrSong[0] из окна hwndApollo.
Теперь вопрос: Пока в в Delphi - то все работает нормально (и включен режим дебагера), выходим и Delphi. Все уже не работает.... он даже не перетирает предыдущее значение CurrSong[0]. В чем проблема ?

Спасибо за ответы, если можно - то в мыло.

← →
HolACost! © (2003-09-16 20:22) [1]

На мыло - некогда - плохой тон!
Ты давай код, который это делает - и желательно весь кусок с вызовом!

← →
MBo © (2003-09-17 07:16) [2]

CurrSong [0]

А как объявлена эта самая текущая песнЯ?

← →
SPeller © (2003-09-17 07:18) [3]

Наверное string. Тогда понятно почему.

← →
Vorobyev Sergey (2003-09-17 08:45) [4]

Делай так:

var CurrSong:string; Buffer:array[0..254] of char; ... GetWindowText( hwndApollo, Buffer, 255 ); CurrSong := Buffer;

Как вариант:
var CurrSong: string; ... SetLength(CurrSong, MyLength); GetWindowText(hwndApollo, PChar(@CurrSong[1]),MyLength-1);
-1 потому что там будет в конце \0 записан

Delphi 7 и WinAPI - странности работы Найти похожие ветки