Преобразование Char string

[SL1CK]

Можно ли как то преобразовать тип Char в String или наоборот??

[Пепел Феникса]

string:=char;
char:=string[1];

[SL1CK]

спасибо но не помогает..
вот что хочу сделать:

var bufs: array[0..255] of char;
begin
GetSystemDirectory(bufs, sizeof(bufs));
WinExec('cd ' + pchar(strpas(bufs)), SW_SHOWNORMAL);

постоянно выбивает ошибку
Incompatible types: 'Array' and 'PAnsiChar'

как можно решить данную проблемму??

[mihali4]

WinExec() давно уже устарела и не рекомендуется к использованию, оставлена только в целях совместимости с 16-ти разрядными приложениями.

Используйте ShellExecute:

Зависимости: Требуется модуль ShellApi
Примеры:

ShellExecute(Handle,nil,'notepad.exe',nil,nil,SW_SHOWNORMAL);

Последний параметр управляет видимостью и активностью запущенной программы на экране.
Через ShellExecute() также можно запускать ассоциированную с тем или иным файлом программу:

ShellExecute(Handle,'open','pd.doc',nil,nil,SW_SHOWNORMAL);

- запустит MS Word (или другую программу, ассоциироанную для запуска *.doc файлов) и загрузит в него файл pd.doc.

[SL1CK]

делаю с помощью ShellExecute

GetSystemDirectory(bufs, sizeof(bufs));
ShellExecute (handle, nil, 'cd ' + pchar(strpas(bufs)), nil, nil, SW_RESTORE);

вылетает та-же ошибка
Incompatible types: 'Array' and 'PAnsiChar'

[mihali4]

Ваш старый вариант по шажочкам

var 
  a : Array[0..MAX_PATH] of char;
  tmp: string;
begin 
  GetWindowsDirectory(a, sizeof(a));
  ShowMessage(StrPas(a));
  tmp:=String(a);
  WinExec(PChar('cd ' + tmp), SW_SHOWNORMAL);
end;

Только вы мне откройте великую тайну - а что вы запускать-то собрались?
Там ведь просто указан каталог винды...
Я смоделировал - молчит, как рыба...

[spamer]

Можно и вот так вроде, у меня открывает System32 :

var
  bufs: array[0..255] of char;
begin
GetSystemDirectory(bufs, sizeof(bufs));
ShellExecute(handle, nil,bufs, nil, nil, SW_RESTORE);

[SL1CK]

спасибо, теперь работает!

Только вы мне откройте великую тайну - а что вы запускать-то собрались?
Там ведь просто указан каталог винды...
Я смоделировал - молчит, как рыба...

нужно хранить временные файлы программы в папке \temp..
молчит потому-что там команда cd %windir% (типа перейти в данный каталог)

Можно и вот так вроде, у меня открывает System32 :
Код:


var
bufs: array[0..255] of char;
begin
GetSystemDirectory(bufs, sizeof(bufs));
ShellExecute(handle, nil,bufs, nil, nil, SW_RESTORE);

да так работает,
но мне нужно примерно такое

ShellExecute(handle, nil,'copy settings.ini ' + bufs +'\settings.ini', nil, nil, SW_RESTORE);

[mihali4]

Ну так и делайте просто копирование файла...