Fórum Caminho do arquivo do cursor ??? #163559
30/05/2003
0
caro colegas,
Uso a seguinte função para o aplicativo encontrar o caminho de arquivos de imagens, sons, etc ... :
´´´´´´´´´unidade := copy(System.CmdLine,1,3); {pega o diretorio do aplicativo,existe outros comandos que tambem faz isto}
if FileExists(unidade+´leo\img\figura.bmp´)then
image1.Picture.LoadFromFile(unidade+´leo\img\figura.bmp´);
if FileExists(unidade+´leo\texto\info.txt´)then
memo1.Lines.LoadFromFile(unidade+´leo\texto\info.txt´); ´´´´´´
Excelente, funciona perfeitamente, mais eu não posso usar essa mesma função para carregar um cursor animado, sou obrigado a identificar um caminho único :´ C:\cursors\exemplo.ani´
´´´´´´´´´procedure on show…
const
NovoCursor = 1;
begin
Screen.Cursors[ NovoCursor ] :=
LoadCursorFromFile(‘c:\cursors\exemplo.ani’ );
Cursor := NovoCursor;
end; ´´´´´´´´´´´´´´´
se eu insistir em usar a função: ´ unidade+´leo\cursors\exxemplo.ani´ ,
O delphi diz que há uma incompatibilidade de´ String e PChar´ ...
Por favor, o que devo fazer ???
Uso a seguinte função para o aplicativo encontrar o caminho de arquivos de imagens, sons, etc ... :
´´´´´´´´´unidade := copy(System.CmdLine,1,3); {pega o diretorio do aplicativo,existe outros comandos que tambem faz isto}
if FileExists(unidade+´leo\img\figura.bmp´)then
image1.Picture.LoadFromFile(unidade+´leo\img\figura.bmp´);
if FileExists(unidade+´leo\texto\info.txt´)then
memo1.Lines.LoadFromFile(unidade+´leo\texto\info.txt´); ´´´´´´
Excelente, funciona perfeitamente, mais eu não posso usar essa mesma função para carregar um cursor animado, sou obrigado a identificar um caminho único :´ C:\cursors\exemplo.ani´
´´´´´´´´´procedure on show…
const
NovoCursor = 1;
begin
Screen.Cursors[ NovoCursor ] :=
LoadCursorFromFile(‘c:\cursors\exemplo.ani’ );
Cursor := NovoCursor;
end; ´´´´´´´´´´´´´´´
se eu insistir em usar a função: ´ unidade+´leo\cursors\exxemplo.ani´ ,
O delphi diz que há uma incompatibilidade de´ String e PChar´ ...
Por favor, o que devo fazer ???
Lbsystems
Curtir tópico
+ 0
Responder
Clique aqui para fazer login e interagir na Comunidade :)