НАШЕЛ!!!
ADMIN, СПАСИБО, НО Я РАЗОБРАЛСЯ - НАШЕЛ НА ОДНОМ САЙТЕ СЛЕДУЮЩУЮ ПРОЦЕДУРУ:
function DosToWin(St: string): string;
var
Ch: PChar;
begin
Ch := StrAlloc(Length(St) + 1);
OemToAnsi(PChar(St), Ch);
Result := Ch;
StrDispose(Ch)
end;
ВСЕ АХ***** РАБОТАЕТ И ПРИВЕДЕНИЯ ТИПОВ НЕ ТРЕБА
Предупреждение за мат, на нашем форуме мат запрещен!
|