Dear All,
Sorry for wrong comments !! I used a copied script
and forgot to change comments !!
Here is revised one with correct comments
use Win32::API::Prototype;
if (-e 'C:\win32app\ingr\NTBatch\bin\batchapi.dll') {
ApiLink( 'C:\win32app\ingr\NTBatch\bin\batchapi.dll', 'DWORD
BatchStopQueue(LPCTSTR queuename)' );
my $RandString = 'PDreport';
# my $RandString = join('', map{ $Chars[ rand( $#Chars ) ] } (1..20) );
BatchStopQueue( $RandString ) || die "Unable to stop batch queue\n";
}
It is cutmised dll for different application and not for
setting title of console window !!
Regards,
Vidyadhar
-----Original Message-----
From: Jenda Krynicky [mailto:[EMAIL PROTECTED]]
Sent: Tuesday, April 02, 2002 2:03 PM
To: '[EMAIL PROTECTED]'
Subject: Re: Win32::API
From: Jangale V-S <[EMAIL PROTECTED]>
> I am trying to import a function in dll using win32::API as follows
>
>
> use Win32::API::Prototype;
>
> if (-e 'C:\win32app\ingr\NTBatch\bin\batchapi.dll') {
I don't think you need any special DLL for this functionality.
SetConsoleTitleA() from kernel32.dll should do.
And if all you want is to change the title you might use
Win32::Console
Jenda
=========== [EMAIL PROTECTED] == http://Jenda.Krynicky.cz ==========
There is a reason for living. There must be. I've seen it somewhere.
It's just that in the mess on my table ... and in my brain
I can't find it.
--- me
_______________________________________________
Perl-Win32-Admin mailing list
[EMAIL PROTECTED]
To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs
_______________________________________________
Perl-Win32-Admin mailing list
[EMAIL PROTECTED]
To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs
